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PRESENTACION 


Estimado amiga de la microin- 
farmática: 


Esta colección de programas, 
escritos para la versión del 
lenguaje BASIC Microsaft que 
incorporan los equipos Amstrad 
CPC 464, CPC 664 y CPC 6128, va 
en particular los que utilizar 
los mencionados equipos de Ams-— 
trad. Na obstante, ro es caom- 
plicado para una mara diestra 
el que se adapten a otros sis- 
temas microcrderiadores. 


La idea que se ha perseguida al 
realizar este trabaza ra ha 
sida otra que suministrar una 
primera selección de listados, 
probados y revisados, de todo 
tipa de aplicaciones: juegos 
recreativos y didácticos, grá- 
ficos, programas de utilidad, 
de cálcula cientifica y técri- 
ca, etc. 


Se ha incidido de farma espe- 
cial en las tareas de Juegos y 
cálculo, matizarnda tres  cues- 
ticones de una manera muy espe- 
cial: interesarte diseña, efi- 
cacia en cuarto a ejecuciór,, y 
manera excelente con que se 
logran explotar los recursos 
hardware y saftware del orderia— 
dar. 


Es par ella que cada programa 
se acompaña de introducción, 
comentarios e instrucciones, la 
que constituye, una interesante 
fuerte de formación en infoarmá- 
tica y Basic. Recursos que 
pueden ser altamente útiles a 
la haora de programar aplicacia- 
nes propias. Esta es la doble 
filosofía de la publicación: un 
mecanismo de pura divertimento 
para iniciarse en la informát i-— 
Ca, a la vez que una via para 
aceder a los secretos de la 
programaciór 


Por atra parte, todas y cada 
una de loas programas han sida 
sometidos a un exhaustivo con 
trol, de farma que se evite la 
frustarte experiencia que es 
introducir un programa por te- 
clada y caomprabar que aparecer: 
errores. En definitiva, espera- 
mos que la colección de progra- 
mas para Amstrad, que se inicia 
con este libro, contribuya tan- 
to a la formación en informáti- 
ca y en programación, cama a un 
sano entretenimiento personal; 
car algo tan positivo coma 
agradable de utilizar como es 
un crdernador personal, de la 
marca Amstrad. 
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GUSANOS 


5e trata de un juego bastante habitual para ordenadores de 
PEQqueño Camaño. Se trata de un gusano, que al comenzar el 
juego sólo tiene dos anillos, y que va creciendo de tamaño 
cada vez que se come una extraña fruta dispersa por la panta- 
lla, 


A medida que el gusano crece se hace más difícil mover el 
animalito. sin chocar con las paredes o con los anillos más 
cercanos a la cola del propio gusano. Si asi ocurre se pierde 
una de las tres vidas con las que el jugador cuenta al comen- 
zar la partida. 


Otra de las dificultades del juego son unos pegueños trian-” 
qulos de color rojo o blanco que aparecen a lo largo de la 
partida, Comerse uno blanco supone aumentar la puntuación. 
Los rojos en cambio son venenosos y hay que ser muy precavido 
para no caer en ino de ellos. 


Cada vez que se supea satisfactoriamente luna pantalla la 
dificultad del juego aumenta, volviendo a comenzar aunque la 
pantalla se siembra entonces de muros y obstáculos adicionar 
les. 


Cada vez que comienza el juego el jugador puede seleccionar 
entre el uso del teclado o de un joystick. si señecciona el 
teclado puede, a continuación, escoger y definir las teclas 
de movimiento como mejor le parezca. 


10 INK 1,24: INK 0,1: INK 2,20: INK 3,6 

20 RANDOMIZE TIME: CALL 2BEOS 

30 GOSUB 1060 

40 GOSUB 920 

50 CLS:GOTO 640 

60 IF INT (RND*100)>98 AND FG=1 THEN GOSUBE 440 

70 1F FG=0 THEN COU=COU-1:1F COU =0 THEN GOSUB 420 
80 IF NOT WI<1 THEN 110 

90 SOUND 131,0,50,7,0,0,3: FRED=REMAIN (1): VIDAS=VIDAS-1 
100 IF VIDAS>0 THEN 810 ELSE GOTO 490 

110 LOCATE A,B:PEN 1:PRINT CHR$(240): PRINT CHR3$ (22) 3 CHR$ (1). 
120 LOCATE A,B: PEN 32FRINT CHR$(241):FEN 1 

130 PRINT CHR+* (22) 5 CHR$ (0) 

140 IF E>0 THEN LOCATE C(E),D(E):PRINT " " 

150 IF E>180 THEN E=0 

160 E=E+1 

170 IF F-180 THEN F=0 

180 F=F+1:C(F)=A:D(F)=B 

190 X=UPPERS(INKEY$):1F X$="" THEN X$=2Z%+ 

200 1F X*=L$ THEN T=FN TL: Z*$=L$: A=A-1:GOTO 250 

210 1F X*$=R3% THEN T=FN TR: Z+$=R$: A=9+1:GOTO 2530 

220 IF X*=U* THEN T=FN TU: Z*=U%: B=B-1:GOTO 250 
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230 IF X$=DS$ THEN T=FN TD: Z$=D$:B=B+1:G0TO 250 . 

240 GOTO 60 

250 IF T=0 GOTO 60 ELSE ON T GOSUB 270,320,380 

260 ON FF GOTO 810,490,60 

270 1F NOT(T=1) THEN 300 

280 SOUND 4,0,10,5,0,0,8:FOR N=1 TO 3:F=F+1 

290 IF F>181 THEN F=1 

300 C(F)=A:D(F)=B:NEXT: SC=SC+100:LOCATE 41,10,1 

310 PRINT $1,USING "444%"; SC: FF=3: RETURN 

320 IF T=2 THEN SOUND 4,0,10,5,0,0,8 

330 FOR N=1 TO 3:F=F+1:1F F>1891 THEN F=1 

340 C(F)=M:D(F)=B:NEXT:SC=SC+10:LOCATE +1,10,1 

350 PRINT 41,USING "4HtA "SC: MEN=MEN+1 

360 IF MEN=20 THEN SH=SH+1: FRED=REMAIN(1):FF=1 ELSE FF=3 
370 RETURN 

380 IF NOT T=3 THEN 400 

390 SOUND 131,0,50,7,0,0,3:FRED=REMAIN (1): VIDAS=VIDAS-1 
400 IF VIDAS>O THEN FF=1 ELSE FF=2 


410 RETURN 
420 FG=1: IF NOT(FG1=1) THEN RETURN 
430 LOCATE AA1,BB1:PRINT " "3:RETURN 


440 AA1=INT(RND*37)+2: BB1=INT (RND*18)+2 
450 IF FN CH=3 THEN RETURN 

460 SOUND 1,30,0,0,1:LOCATE AA1,BB1 

470 IF RND<0.5 THEN PEN 1 ELSE PEN 3 

480 PRINT CHR$ (245) : FG=0: FG1=1: COU=100: RETURN. 

490 MODE 0: 1F NOT (SC>VAL (MID$(A$(1),13))) THEN 640 

500 PEN 15 

510 PRINT "TU PUNTUACION ES "¿TAB(7)5CHR$(10) ¿"MAXIMA " 
520 LOCATE 6,6:PEN 13:PRINT "TU NOMBRE? "¿CHR$(10); 

530 PRINT TAB(3) "(MAX DE 10 LETRAS) ":*LOCATE 6,10 

540 PRINT STRING$(13," "):LOCATE 6,10 

550 CALL £BBO3: INPUT "" ,N$: N$=UPPERS (N$) 

560 IF LENtNS$)>TO-OR LEN (N$)<1 THEN 570 

570 CHECK=10 

580 WHILE SC<VAL (MID$(A$ (CHECK) ,13)) 

590 CHECK=CHECK-1 

600 WEND 

610 IF CHECK>1 THEN FOR N=1 TO CHECK-1:A$(N)=A$ (N+1): NEXT 
620 A$ (CHECK) =N$+STRINGS (11-(LEN(NS) ) 

630 A$ (CHECK) =A$ (CHECK) +(7-LEN(STR$(SC)))," ")+STR$(SC) 
640 CLS:PEN 15:PRINT TAB(5) "HIGH SCORES" 3CHR$ (10) 

650 FOR N=10 TO 1 STEP -1 

660 PEN INT(RND+*4)+1:PRINT TAB(2) A$(N)¿CHR$(10); 

670 NEXT 

680 CALL £BBO3 

690 LOCATE 1,24: PEN 12:PRINT "PULSA "3: PEN 11:PRINT "C “; 
700 PEN 12:PRINT "PARA CONTINUAR":LOCATE 1,25:PRINT "0"; 
710 PEN 11:PRINT "0 "; 

720 PEN 12:PRINT "PARA LAS OPCIONES DEL TECLADO "; 

730 SC=0: SH=0: VIDAS=3 

740 IF INKEY(62)<>-1 GOTO 790 

750 IF INKEY(34)<>-1 THEN GOSUB 920:CLS:GOTO 640 

760 IF INKEY(58)<>-1 THEN INK 0,13: INK 1,0:PAPER O:PEN 1:BOR 
DER 13:MODE 2:LIST 

770 GOTO 740 
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780 DI:WI=WI-1:PLOT WI,4,1:DRAWR 0,8,1: IF WI=100 THEN SOUND 
ÓN ELSE El:RETURN 
FO INK 2,0: INK 0,0: INK 1,0: INK 3,0:BORDER O 
: : yO: ¿PAPER O2MODE 1: 
ea ADOS $1,1,40,23,23:2 WINDOW $2,2,39,2,20:PA 
3 


800 CLS:PEN 3:PAPER O: FOR N=2 TO 20:LOCATE 1,N3PRINT CH 
43: LOCATE 40,N3PRINT CHR$ (247) 3: NEXT: LOCATE” 1,1: PRINT CARE 


249) ¿ STRING$ (38, CHR$ (248) ) ¿CHR$(250)5 :LOCATE 1,21:PRINT CHR$ 
(251) 3 STRINGS$ (38, CHR$ (253) ) ¿ CHR$ (252) ; 

810 INK 2,0: INK 0,0: INK 1,0: INK 3,0:CLSé2:PEN 3:PAPER 1:LOCA 
TE 2,6:PRINT STRING$((SH MOD 6)*4,CHR$(244)):LOCATE 40-((SH 

MOD 6)+*4),15:PRINT STRING$((SH MOD 6)*4,CHR$(244)) 

820 1F SH>S THEN PEN 3:PAPER O:LOCATE 30,2:GO0SUB 910:LOCATE 

10,15:GOSUB 910: 1F SH>11 THEN LOCATE 35,2:GOSUB 910:LOCATE 5 
,15:GOSUB 910: 1F SH>17 THEN LOCATE 25,2:GOSUB 910:LOCATE 15, 
15:GOUB 640 

830 PAPER O:LOCATE 10,S5:PEN 1:PRINT CHR$(240):PRINT CHR$(22) 
+CHR$ (1) :LOCATE 10,5: PEN 3:PRINT CHR$(241) 

840 FOR V=1 TO 20 

850 AA1=INT (RND*37)+2: BB1=INT (RND*18)+2: 1F FN CH=2 OR FN CH= 
3 GOTO 850 

860 LOCATE AAM1,BB1:PEN 2:PRINT CHR$(242):LOCATE AA1,BB1:1PEN 

3: PRINT CHR$ (243): NEXT: PRINT CHR$(22)+CHR$(0) : ORIGIN 0,0,0,1 
00,12,4:CLG 3:ORIGIN 6,0,101,640,12,4:CLG 2:0RIGIN 0,0,0,640 
,400,0 

870 PEN 4$1,1:CLS *1:PRINT 41,TAB(4) “SCORE":LOCATE +1,10,1:P 
RINT +41,USING "4HH444"5SO3:LOCATE $1,30,1:PRINT 41,"VIDAS",V 
IDAS: INK 2,24: INK 0,02 INK 1,26: INK 3,6 

880 MEN=0: Z=0: Z$="":E=0:F=0:A=10:B=5:0(1)=10:D(1)=5:FG=1:WI= 
639: EVERY 4,1 GOSUB 780 

890 CALL $BBO3 

900 GOTO 40 

910 PRINT CL1$3:PRINT CL2$3:PRINT CL2$3:PRINT CL2$;:PRINT CL 
3$: RETURN 

920 MODE O:PAPER 13:CLS:BORDER 22:PEN S¿LOCATE 7,6: PRINT "TE 


CLADO":PRINTÍPRINT TAB(10) “O":PRINT:PRINT TAB(7)"JOYSTICK"z 
PRINT:PRINT TAB(8) "(T..J)" 

930 CALL KBBOZ . 

940 IF INKEY(S51)<>-1 THEN DUS$=INKEY$:GOTO 970. 

950 IF INKEY(45)<>-1 THEN L$=CHR$ (8) : R$=CHR$ (9) : US$=CHR$ (11): 
D$=CHR$ (10): GOTO 1050 AUTO 960 

960 GOTO 940 : W 
970 CLS:PEN 6:PRINT "DEFINE TUS PROPIAS TECLAS":PRINT TAB(5) 
"AS PROMPTED":PEN Si3LOCATE 7,73PRINT "IZQUIERDA: "¿:CALL £BB 
03 

980 L$=UPPERS(INKEYS):1F L$="" GOTO 980 ELSE PRINT L$ 

990 PEN 7ÍLOCATE 6,9:PRINT "DERECHA: ":CALL *BBO3 

1000 R$=UPPERS(INKEY$):1F R$="" OR R$=L$ GOTO 1000 ELSE PRIN 
T R$ 

1010 PEN 3:LOCATE 9,11:PRINT “ARRIBA: "3:CALL £BBO3 

1020 US=UPPER$(INKEYS): 1F U$="" OR US=L$ OR U$=R$ GOTO 1020 
ELSE PRINT U$s 

1030 PEN 8:LOCATE 7,13:PRINT "ABAJO: "3:CALL £BBO3 

1040 D$=UPPER$(INKEY$):1F D$="" OR D$=L$ OR D$=R$ OR D$=U$ G 
OTO 1040 ELSE PRINT Ds | 

1050 FOR N=1 TO 200:NEXTz INK 0,0: INK 1,24: BORDER O:PAPER 03R 
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ETURN 

1060 SYMBOL AFTER 199: SYMBOL 200,255,192,127,63,26,26,26,26: 
SYMBOL 201,255,3,254,252,88,88,88,88: SYMBOL 202,26,26,26,26, 
63,127,192,255: SYMBOL 203,88,88,89,88,252,254,3,255: SYMBOL 2 
04,26,26,26,26,26,26,26,26: SYMBOL 205,88,88,88,88,88,898,988,8. 
8 

1070 SYMBOL 249,255,180,205,182,157,210,172,187: SYMBOL 250,2 
55,37,203,187,213,95,169,149: SYMBOL 251,169,149,250,171,221, 
211,164,255: SYMBOL 252,221,53,75,185,108,179,45,255: SYMBOL 2 
53,0,40,102,218,89,213,117,255 

1080 SYMBOL 254,168,252,198,248,154,228,140,240: SYMBOL 248,2 
55,117,21,89,218,102,40,0:SYMBOL 247,21,63,99,31,89,39,49,15 
¿SYMBOL 242,0,126,24,60,126,126,126,60: SYMBOL 243,0,0,29,2,0 
,0,0,0 

1090 SYMBOL 240,0,24,60,102,102,60,24,0: SYMBOL 241,0,0,0,24, 
24,0,0,0: SYMBOL 244,238,238,0,187,187,0,238,238: SYMBOL 246,0 
,42,84,42,0,0,0,0 

1100 CL1%=CHR$ (200) +CHR$ (201) +CHR$ (8) +CHR$ (8) +CHR$ (10) 1CL2$= 
CHR$ (204) +CHRS (205) +CHR$ (8) +CHR$ (8) +CHR$ (10) 1: CLIF=CHRE (202) + 
CHR$ (203) 

1110 DEFINT A-R,T-Z:DIM C(181),D(181):5C=0: SH=0: VIDAS=3: ENV 
2,127,6,1:ENV 1,1,15,1,14,-1,5,5,0,1 

1120 DIM A$(10) 


1130 A*(10)="EL CAMPEON 5000" 
1140 A+ (9) ="ELANCA 4300" 
1130 AF (8)="MIGUEL 4000" 
1160 As (7) ="CAMFEON 3300" 
1170 A+(6)="EL DE LA BOINA 3000" 
1180 A$(5)="TATETI 2300" 
1190 A+ (4)="EL LOCO 2000" 
1200 AF (3)="INIGO 1300" 
1210 AF (2)="MAITE 1000" 
220 AF(1)="QUIEN SERA 300" 


1230 DEF FN TR=TEST ((Ax16)+7,((25-B)*16)+8): DEF FN TL=TEST 
((AX16)-23, ((25-B)*16)+8): DEF FN TU=TEST ((AX*16)-9, ((235-B)+*1 
6)+24): DEF FN TD=TEST ((A*16)-9, ((25-B)*16)-8): DEF FN CH=TES 
TC(CAA1LA16)-7, ((25-BE1)+*16)+8) 

1240 RETURN 


10 
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LA BOLA INEERNAL 


Este programa, pone a prueba los reflejos del jugador más 
experimentado. 


La pantalla se convierte en un patio lleno de ladrillos donde 
se han colocado ciertos blancos a los que hay que derribar 


sin chocar con los obstáculos. la pelota sólo puede rebotar 
con las peredes del patio. 
Fara mover la pelota (arriba O abajo solamente) hay que 


utilizar las teclas "1" y 
joystick. 


eds 
3 


aunque es posible utilizar el 


Elo programa almacena ma serie de records (las 10 mejores 
puntuaciones), Cuando se consiga llegar a este ranking se 
puede introducir el nombre del jugador en la forma en que 


esto se hace en las máquinas de las salas de Juega: pulsando 
la tecla "1" se cambian las letras, y mediante la tecla 


"ENTER" se fijan. 


Los colores del juego son aleatorios. En ocasiones se obtie- 
nen efectos muy artísticos, 'dctras veces sin embargo el con” 
traste es débil. Esta aleatoriedad es el elemento sorpresa 
del Juego. 


Aunque las reglas son bastante triviales, no resulta nada 
sencillo vaciar la pantalla de blancos, scbre todo si. éstos 
están entre dos obstáculos muy Cercanos. 


10 GOSUB 70 

20 GOSUB 340 

30 GOSUB 680 

40 GOSUE 880 

50 MODE 11PEN 1: INK 1,24: PAPER O: INK 0,0: BORDER O 
60 GOTO 20 

70 KEY 128,"MODE 1:PEN 1: INK 1,26:PAPER O: INK 0,0: BORDER O:L 
IST "+CHR$(13) 

80 INK 1,24 

90 INK 2,14 

100 INK 3,20 

110 INK 0,0 

120 BORDER O 

130 SYMBOL AFTER 127 

140 SYMBOL 128,255,129,129,129,129,129,129,235 
150 SYMBOL 130,0,60,110,94,94,126,60,0 

160 SYMBOL 129,218,218,0,182,182,0,218,218 

170 SYMBOL 131,128,8,48,116,2,61,68,187 

180 GOSUB 1140:MODE 1 

190 DIM HS(10),HS$(10) 

200 FOR N=1 TO 10 

210 HS(N)=99 

220 HS$(N)="229" 
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230 
240 
2530 
260 
270 
280 
290 
300 
310 
320 
330 
340 
3530 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 


NEXT Ñ 

DEF FNPOINT (P1,01)=TEST ((P1-1)*16, (25-Q01)*16) 
RANDOMIZE TIME 

FOR N=0 TO 3 

As$ (N) =CHR$ (N+128) 

NEXT N 

P2=3 

ENT 1,15,-1,3 

ENV 1,15,-1,3 

ENT 2,15,1,3 

RETURN 

CLS:PEN 2 

FOR N=1 TO 40 

LOCATE N,1:PRINT A+(0); 
LOCATE N,25:PRINT A$(0);3 
IF N>2S THEN 410 

LOCATE 1,N:PRINT A$(0); 
LOCATE 40,N:PRINT A$(0); 
NEXT N 

FOR N=1 TO 30 

PEN P2 

P=INT (RND*34) +4 

Q=INT (RND+*23) +2 

IF FNPOINT(P,Q)<>0 OR FNPOINT(P+2,0)<>0 OR FNPOINT(P-2,Q 


)<>50 THEN 440 


470 
480 
490 
300 
5310 
320 
330 
340 
3590 
360 
3570 
580 
390 
600 


IF P2=3 THEN P2=1 ELSE P2=3 
LOCATE P,Q 

PRINT A$(P2) 

NEXT N 

X=INT (RND*34) +4 

Y=INT (RNDx*23) +2 

IF FNPOINT(X,Y)<>0 THEN 510 
X1=1:Y1=0:SC=0: TME=0:L$="":M=10 
LOCATE X,Y 

PRINT A$(2) 

LOCATE 12,1 

PEN 1 

PRINT "<ESPACIO> PARA JUGAR" 
WHTLE  INKEVYE< > CHRS (39) - END 

FOR N=12 TO 32 

LOCATE N,1 

PEN 2:PRINT A$(0); 

NEXT N 

DATUM=INT(TIME/300) 

PEN 1 

RETURN 

I$=INKEYS$: J=J0Y (0) 

IF I$="" AND J=0 THEN 720 

IF 1$=":" OR J=1 THEN Yi=-1:60T0 720 
IF 1$="." OR J=2 THEN Y1=1:GOTO 720 
X=X+X1:Y=Y+Y1:2 1F Y=1 OR Y=25 THEN Y=Y-Y1:Y1=0 
POINT=FNPOINT(X, Y) 

LOCATE X-X1,Y-Y1 

PRINT " *; 

LOCATE X,Y 

PRINT A$(2); 
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780 IF POINT<>0 THEN 800 

790 Y1=0:GOTO 480 

800 REM 

810 IF POINT=2 THEN PEN 2:LOCATE X,Y:PRINT A$(0)3:SOUND 129, 
100,45,15,1,2,02 PEN 1:2X=X-X1:X1=-X1:X=X+X1:G60T0 790 
820 IF POINT=1 THEN LOCATE X,Y¿PRINT " "32X=X-X1:2X1=-X1:2X=X+ 
X1:SOUND 130,200,45,15,1,1,0:SC=SC+1:1F SC<15 THEN 790 ELSE 
TME=((TIME/300) DATUM) : GOSUB 2090: RETURN 

830 FOR N=30 TO 1 STEP -0.1 

840 SOUND 130,0,4,N/4,0,0,N: BORDER INT (RND*26) +1 
850 NEXT N:BORDER O 

860 TME=9999 

870 RETURN 

880 MODE 1 

890 IF TME<HS(10) THEN GOSUB 1830 

900 CLS 

910 LOCATE 16,2 

920 PRINT "TOP 10" 

930 WINDOW 1,11,34,4,14:LOCATE $$1,1,11 

940 FOR N=1 TO 10 

950 IF N<>10 THEN PRINT 41," "; 

960 PEN 41,INT (RND*3)+1:3 1F N=M+1 THEN PEN 41,0: PAPER 41,1 
970 PRINT 41,N3"-" ¿HS$(N)3"..."3HS(N) 

980 IF N=M+1 THEN PEN $1,1:PAPER 41,0 

990 NEXT N 

1004 FOR N=1 TO 26 

1010 PEN INT(RND*3) +1 

1020 LOCATE N,3:PRINT CHR$(127); 

1030 LOCATE N,15:PRINT CHR$(127); 

1040 NEXT N 

1050 FOR N=3 TO 15 

1060 PEN INT(RND*3)+1 

1070 LOCATE 11,N:PRINT CHR$(127); 

1080 LOCATE 26,N2PRINT CHR$(127); 

1090 NEXT N 

1100 LOCATE 12,21:PRINT "<ESPACE> PARA JUGAR " 
1110 I$=INKEYS 

1120 IF I$=CHR$(32) THEN RETURN 

1130 IF I$<>CHR$(32) THEN 1110 

1140 MODE :1 

1150 INK 0,0:BORDER O 

1160 INK 1,26: INK 2,6: INK 3,11 

1170 SYMBOL 133,64,224,224,224,224,224,224,224 
1180 SYMBOL 134,224,224,224,224,224,255,127,63 
1190 SYMBOL 136,0,0,0,0,0,248,252,248 

1200 SYMBOL 135,31,63,127,224,224,224,224,255 
1210 SYMBOL 138,255,255,224,224,224,224,224,64 
1220 SYMBOL 137,224,240,248,28,28,28,28,252 
1230_SYMBOL 139,252,252,28,28,29,28,28 

1240 SYMBOL 140,127,255,224,224,224,224,255,255 
1250 SYMBOL 149,255,224,224,224,224,255,255,127 
1260 SYMBOL 141,192,224,240,112,112,224,192,240 
1270 SYMBOL 150,248,60,28, 28, 60,252,248,240 

1280 SYMBOL 142,15,63,127,112,224,224,224,224 
1290 SYMBOL 151,224,224,224,224,112,127,63,15 
1300 SYMBOL 143,192,240,248,56,28,28,28,28 
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1310 SYMBOL 152,28,28,28,28,56,248,240,192 

1320 SYMBOL 145,8,28,28,28,28,28,28,28 

1330 SYMBOL 147,127,255,255,224,224,254,255,254 

1340 SYMBOL 148,248,252,248,0,0,0,0,0 

1350 SYMBOL 157,28,28,28,28,28,28,28,8 

1360 SYMBOL 159,112,248,252,2534,255,239,231,227 

1370 SYMBOL 161,225,224,224,224,224,224,224,64 

1380 SYMBOL 162,252,252,124,60,28,28,28,8 

1390 SYMBOL 160,8,28,28,28,28,156,220,252 

1400 SYMBOL 165,224,224,224,224,224,224,224,64 

1410 SYMEOL 166,127,255,224,224,224,224,255,255 

1420 SYMBOL 168,2355,225,224,224,224,224,224,64 

1430 SYMBOL 167,192,224,240,112,112,240,224,192 

1440 SYMBOL 169,192,224,240,120,56,28,28,8 

1430 SYMBOL 200,2359,2359,23959,2595,2595,119,0,0 

1460 «SYMBOL 201,128,128,128,128,128,0,0,0 

1470 SYMBOL 202,119,119,119,119,119,0,0,0 

1480 PRINT:PRINT:PRINT 

1490 PRINT CHR3 (32) +CHR$ (32) +CHR$ (32) +CHR$ (32) +CHR$ (32) +CHRS 
(133) +¿CHRS (32) +CHR$ (135) +CHR$ (137) +CHR$ (32) +CHRS$ (32) +CHR$ (14 
0) +CHRE (141) +CHR3 (142) +CHR$ (143) +CHR$ (133) +CHR$ (32) +CHR$ (135 
) ¿CHRE (137) +CHRS (32) +CHR$ (145) +¿CHRS (159) +CHR$ (160) +CHR$ (147) 
+CHRS (148); 

1300 PRINT CHR3 (147) +CHR3 (148) +CHR+$ (166) +CHRE (167) +CHR$ (159) 
+CHR$ (160) +CHR$ (135) +CHRS (137) +CHR$ (133) +CHR$ (32) 

1510 FRINT CHR* (32) +CHR$ (32) +CHRE (32) +CHR$ (32) +CHR$ (32) +CHR$ 
(134) +CHRS$ (136) +CHR$ (138) +CHR$ (139) +CHR$ (32) +CHR$ (32) +CHR$ (1 
49) +CHR$ (150) +CHR$ (151) +CHR$ (152) +CHR$ (134) +CHR$ (136) +CHR$ (1 
38) +CHR$ (139) +CHR$ (32) +CHR$ (157) +CHR$ (161) +CHR$ (162) +CHR$ (16 
3) +CHRS (32); 

1520 PRINT CHR* (134) +CHR$ (136) +CHR$ (168) +CHR$ (169) +CHR$ (161) 
+CHRS (162) +CHR+$ (138) +CHR$ (139) +CHR$ (134) +CHR$ (136) 

13530 PLOT 30,300,1:DRAW 610,300,1 

1340 PLOT 20,295,3: DRAW 620,295,3 

1550 R=60: XA=520: YA=80 

1360 Z=R*2:FOR DX=-R TO R STEP 2:DY=SOR(Z-(DX"2)): PLOT XA+DX 
y YA+DY,2: DRAW XA+DX,YA-DY,2: NEXT 

1570 PLOT 5335,92,0: DRAW 550,96,0: PLOT 535,92,0: DRAW 560,796,0 
¿PLOT 305,92,0: DRAW 490,96,0: PLOT 505,92,0:DRAW 480,96,0:FLO 
T 515,80,0:DRAW 505,78,0: PLOT 525,80,0:DRAW 535,78,0:PLOT 50 
0,65,0:DRAW 540,65,0 

1380 PRINT CHR* (22) +CHR+$ (1) 

1390 LOCATE 33,22: PEN O:PRINT CHR3(200)+CHR$ (201): PEN 1: LOCA 
TE 33,22: PRINT CHR*$(202) 

1600 PEN 2:LOCATE 8,24: PRINT "<ESPACE> PARA JUGAR ":I=1 

1610 PRINT CHR* (22) +CHR+$ (0) 

1620 WHILE INKEY$<>5" "2 INK 1,11: INK 3,26:FOR O=1 TO 100: NEXT 
3 INK 1,26: INK 3,11:FOR O=1 TO 100: NEXT: WEND 

1630 MODE O:PAPER O:BORDER S:CLS 

1640 FOR N=1 TO 8 

1650 READ As 

1660 GOSUB 1700 

1670 NEXT N 

1680 WHILE INKEY3$<>" "2 INE INT(RND*10)+2, INT (RND*26) +1: WEND 

1690 RETURN 

1700 A=LEN(AS$) :A=10-A/21 A=0x*32 
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1710 Di=INT(RND(1)*10)+2 
1720 PLOT 1000,1000,D1 


1730 MOVE A, (23-=(N%2)1) £106:2:TAG:3 RRINT As: TAGOFF 
1740 RETURN 

1730 DATA "EL OBJETIVO ES" 

1760 DATA "DAR A LOS BLANCOS" 
1770 DATA "SIN DAR A LOS MUROS" 
1780 DATA "BUENA SUERTE" 

1790 DATA ": ARRIBA" 

1800 DATA ". -—ABAJO" 

1810 DATA "0 JOYSTICK" 

1820 DATA "x¿ESPACE> PARA JUGAR" 
1830 CLS: TME=INT (TIME) 

1840 FPRINT TAB (12)5 "ENHORABUENA" 


1850 PRINT TAB(12)] MM=====w===/" 
1860 PRINT TAB(12)7" Mu======/ " 
1870 PRINT TAB(12)53 "TIEMPO: "5 TME"SEGS" 


1880 PRINT TAB(4); "ESTAS DENTRO DE LOS DIEZ MEJORES" 

1890 PRINT TAB(3); "UTILIZA : PARA CAMBIAR LAS LETRAS" 

1900 PRINT TAB(4);"Y PULSA <ENTER> PARA CAMBIAR DE COLUMNA. " 
1910 LOCATE 18,14:PRINT "AAA" 

1920 FOR N=1 TO 3 

1930 BS(N)="A" 

1940 CO=65 

1950 I$=INKEY$ 

1960 IF I$=":" THEN CO=CO+1: 1F CO=92 THEN CO=65 

1970 IF I$="." THEN CO=CO-1: 1F CO=64 THEN CO=91 

1980 PAPER 1:PEN O 

1990 LOCATE 17+N,14:PRINT CHR$(CO) :B$ (N)=CHR$ (CO) 

2000 IF I$=CHR$(13) THEN PAPER O:PEN 1:LOCATE 17+N,14:PRINT 
CHR$(C0)5: GOTO 2020 

2010 GOTO 1950 

2020 NEXT N:HS(10)=TME:HS$(10)="" 

2030 FOR N=1 TO 3 

2040 HS$ (10)=HS$ (10) +B% (N) 

2050 NEXT ON 

2060 M=9 

2070 IF HS(M) >HS(M+1) THEN G$=HS$ (M) : G=HS (M) : HS$ (M) =HS$ (M+1) 
¿HS (M) =HS (M+1) ¿HS (M+1)=G: HS$ (M+1)=G$:M=M-1: 1F M>0 THEN 2070 
2080 RETURN 

2090 FOR N=1 TO 26 STEP 0.5 

2100 INK 0,N 

2110 INK 2,27-N 

2120 INK 3,27-N 

2130 FOR T=1 TO 40:NEXT T 

2140 SOUND 130,0,5,15,0,0,N:NEXT N 

2150 INK 0,0 

2160 INK 2,14 

2170 INK 3,20 

2180 INK 1,9 

2190 RETURN 
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JUEGO DEL ARCOIRIS 

Tres rayos de color se disparan sólos desde la izquierda de 
la pantalla. En la derecha de la misma se encuentra la nave- 
del jugador que puede ser destruida si no se se esquiva a los 
rayos con la suficiente velocidad. 


Los rayos van cambiando de color a cada momento y en  Oca- 
siones son invisibles hasta que llegan al final de su reco- 
rrido. Otras veces es la propia nave la que desaparece de la 
visión del jugador. Fara acumular puntos éste tiene que hacer 
uso de sus reflejos. 


Para complicar más el juego se puede cambiar la línea 100 del 
programa con la instrucción: 


100 Jd=J+1:1F.-— J=38 THEN J=0 ¿L=INT(RND (6)20+3) : LOCATE 
20,L:PRINT CHRE (224) : PUNT=FUNT+15: LOCATE 1,24: PRINT 
"PUNTUACION", "= "; PUNT:GOTO 90 


De esta forma, tras cierto tiempo, la pantalla se vuelve de 
un sólo color, con lo que el jugador sólo puede conocer su 
posición mediante unas caras sonrientes que aparecen en mitad 
de la pantalla y que son tapadas por el rayo cuando éste pasa 
por encima. 


El programa, escrito totalmente en BASIC, es una realización 
sencilla de un juego simple aunque ameno, para el que sólo se 
necesitan introducir unas pocas líneas de programa. 


10 N=12: PUNT=0: HIPUNT=0 

20 MODE 1:PEN 1 

30 RANDOMIZE TIME 

40 B$=CHR$ (195) +CHR$ (196) +CHR$ (197) 

50 SYMBOL AFTER 195 

60 SYMBOL 195,0,0,1,2,127,255,127,0 

70 SYMBOL 196,0,127,254,124,254,254,252,0 

80 SYMBOL 197,0,0,62,33,132,124,0 

90 F=INT(RND (5) *20+3) 2 G=INT (RND (6) *20+3) : H=INT (RND (3) *20+3) 
100 j=J+1:1F J>38 THEN J=0:L=INT(RND (6) *20+3) :LOCATE 20,L:PR 
INT CHR$ (224) : PUNT=PUNT+15:L=INT(RND(6)+*14+1): PEN L:LOCATE 1 
24: PRINT "PUNTUACION: "¿PUNT:GOTO 90 

110 LOCATE J,F:PRINT CHR$(143):LOCATE J,G:PRINT CHR$(143):L 
OCATE J,H:PRINT CHR$(143) 

120 IF INKEY(71)=0 THEN N=N+1:M=1 

130 IF INKEY(63)=0 THEN N=N-1:M=2 

140 1F N23 THEN N=3 

150 IF N>22 THEN N=22 

160 IF (M=F AND J=38) OR (N=G AND J=38) OR (N=H AND J=38) TH 
EN 240 

170 LOCATE 38,N:PRINT B$:0N M GOTO 180,190 

180 LOCATE 38,N-1:PRINT "  ":GOTO 100 

190 LOCATE 38,N+1:PRINT "  "*GOTO 100 
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200 ENV 1,10,1,100:ENT 1,100,2,2: SOUND 1,478,200,7,1,1 

210 MODE O: INK 1,0:BORDER 4,6:LOCATE 5,12:PRINT "Lo siento, 
perdiste” 

220 FOR n=1 TO 3000: NEXT 

230 MODE 1:BORDER 6:LOCATE 4,6:FRINT "Tu puntuacion es: "¿pu 
nt 

240 1F PUNT>HIPUNT THEN LOCATE 4,8:PRINT "Has logrado batir 
el record!'”:LOCATE 4,10:PRINT "Ahora el record mas alto es: 
"PUNT: HIPUNT=PUNT:GOTO 260 

250 LOCATE 4,8:PRINT "El record mas alto es: "zhipunt 

260 LOCATE 4,13:PRINT "Prueba de nuevo pulsando una tecla" 
270 LOCATE 4,15:PRINT "si quieres acabar pulsa N" 

280 LINE INPUT As: 1F as="N" THEN END ELSE GOTO 20 


En este juego para dos, uno de los jugadores manejará a un 
curas mientras que el jugador contrario se encargará de los 
movimientos de un vampiro. Estos dos personajes habitan un 
viejo castillo en ruinas y uma iglesia respectivamente, (pero 
toda la acción discurre en los cementerio de sus respectivas 
moradas. 


Durante la noche (el color de fondo es  amarillor“rverde), el 
vampiro puede cambiar el color de las tumbas amarillas en 
zUlo. Cuando es de día (color de fondo azul) es el cura quien 
se empeña en hacer suyas las tumbas azules poniéndolas amari- 
llas. 


Gana el jugador que consiga poner todas las tumbas de su 
color, o el que consiga destruir a su enemigo. Fara ello debe 
colocarse encima  Suyo, cuando sea su hora. (de dia para el 
curas, de nache para el vampiro) y apretar la tecla que co” 
rresponde al cambio de color. ' 


En esta versión del juego se ha dispuesto que el. cura se 
mueva mediante las teclas del cursor, procediendo a disparar 
sobre el vampiro, o a cambiar las tumbas mediante la tecla de 
COPY. Fara manejar al vampiro hay que utilizar las teclas de 
h (Arribej, Z (Abajo), A (lequierda), 3 (Derecha) y Enter 
(disparo). Sin embargo es muy fácil modificar esta situación 
cambiando las primeras líneas del programa que es donde se se 
asignan las teclas. De esta forma es posible utilizar una 
pareja de joysticks, 


El programa admite varios niveles de dificultad. Cuanto más 
elevado se escoja éste, a mayor velocidad se sucederán los 
dias y las noches, impidiendo un movimento rápido por la 
pantalla. 


Hay que subrayar que es bastante dificil conseguir derrotar 
al enemigo por el procedimiento de cambiar todas las tumbas a 
un mismo color, por lo que se hace indispensable intentar 
destruir directamente al contrario. 


10 MODE 0 

20 VUY=59: VD%=71 1: VL%=69: VRZ=60 1 VF%=18 

30 PUZ%=0: PD%=2:PL%=8:PRY=11PF%=9 

40 NOZ%=0: GOTO 130 

50 NOZ=NO%+1: 1F NOZ=39 THEN RESTORE 70: N0%=0 

60 READ DX%,N%: SOUND 1,N%,D%,15,1,4: RETURN 

70 DATA 25,568,50,478,25,426,37,379,12,358,25,379,50,426 
80 DATA 25,506,37,638,12,568,25,506,50,478,25,568,37 
90 DATA 568,12,602,25,568,50,506,25,602,50,758,25,568 
100 DATA 50,478,25,426,37,379,12,358,25,379,50,426 
110 DATA 25,506,37,638,12,526,25,506,37,478,12,506,25 
120 DATA 568,37,606,12,677,25,638,75,568,50,568,0,0 
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130 BORDER 11 

140 SK%=500 

150 ENV 1,10,-1,2 

160 FOR 1%=0 TO 15: INK 1%, 1%: NEXT 
170 SYMBOL AFTER 229 


180 SYMBOL 230,0,0,24,60,110,94,255,255 

190 SYMBOL 232,60, 40,255,60,60,24, 235,235 

200 SYMBOL 233,2355,189,189,189,189,126,126,126 
210 SYMBOL 234,126,126,126, 126,228,4,4,7 

220 SYMBOL 235,126,126,126,39,32,32,224 


4, 
5, 

230 SYMBOL 236, e Ad 61,63,15,15,3,3 
240 SYMBOL 237, ,143,188,252,240,240, 192,192 
250 SYMBOL 238, a5N 7,31,63,57,48,32 
260 SYMBOL 239,128,128,224,248,252,156,12,4 
270 SYMBOL 240,0 ,0,24,52,82, 82,145,145 
280 SYMEOL 241,255,145,145,145,145,145,145,255 
290 GOSUB 2110 
300 GOTO 540 
310 X0%=X%: YO%=Y%, 
320 X0%=X%1 YO%=Y7, 
330 WHILE TESTO, Y7)2 90%: PLOT X%,YZ,0%1 X%=X%+4 5 WEND 
340 X%=X0%-4 
350 WHILE TEST (X%,Y%)<30%: PLOT X%, V%: X%=X7%-4: WEND 
360 X%=X0% 
370 1F TEST (X%,Y%+2)<30% THEN YZ=Y%+2: GOTO 330 
380 RETURN 
390 IF TEST (XV%+32,YV%-16):% 56 THEN RETURN 
400 SOUND 4,200,3,7: TAGOEF + PRINT OCHR+(23)+CHR$ (0) y : TAG 
410 FLOT -10,0,10:MOVE (XV%+16), (YV%+8):PRINT CHRE (230) 5: MOV 
E (XVX+16), (1V%-8):PRINT OCHR$ (143) 5 
420 TAGOFF:FRINT CHR$(23)+CHR$ (1) 3: TAG 
430 PLOT -10,0,9 
440 WOZ=WC%-1: 1F WCZ=0 THEN VOPWYZ=1 
450 RETURN 
460 IF NOT(TEST (XP%+16,YP2-32)= 10) THEN RETURN 
470 SOUND 4,100,3,7: TAGOFF:PRINT CHR$(23)+CHR$(0) 5 
480 PLOT -10,0,6: MOVE XP%, (YP 2-16): PRINT CHR$(230) 
490 MOVE XP%, (YEZ2=32) 2 PRINT OCHR$(143)3 
500 TAGOFF:PRINT OCHR$ (23) +CHR$ (1); : TAG 
510 PLOT -10,0,8 
520 WOZ=WCY+12 1F WC%=24 THEN VOPWY=1 
530 RETURN 
540 BORDER 11: INE 0,13 
550 FOR I%=1 TO 15: INE 1%,1%: NEXT 
560 PRINT CHR$(23)+CHR$ (0) 
570 AF=CHRE (230) +" "+CHRE(230) +" "+CHR$(230)+" "+CHRE(230) 
580 Bé$=CHR$ (143)+" "+CHR$(143)+" "+CHR$(143)+" "+CHR$(143) 
590 INK 13,2 
600 PEN 2:LOCATE 1,1:PRINT STRING$ (80,143) 
610 PEN 14:LOCATE 1,5: FPRINT STRING*$(80,143) 
620 PEN 13:LOCATE 1,9:FRINT STRING+$ (60,143) 
630 FOR I%=1 TO 20:LOCATE 1%,11: PAPER 13 
640 PEN 12: PRINTOCHR$ (242): NEXT 
650 FOR I%=1i TO 3 
660 FEN O:LOCATE 3,8+1%:FRINT STRING* (4,143) 
670 LOCATE 14,8+1%:FRINT STRING$(3,143) 


TAG 


JUEGOS PARA DOS 


680 
690 
700 
710 
720 

GO 
740 
750 
760 
770 
780 
790 
800 
810 
820 
Bo 
340 
830 
860 
870 
880 
890 
900 
910 
920 
BO 
940 
930 
960 
970 
980 
990 


1000 
1010 
1020 
1O3O 


NEXT 
MOVE 0,225: DRAWR 640,0,0 
RESTORE 730 
MOVE 66,22 
FOR DR%=1 TO 45:READ X%,Y%:DRAWR X%,Y%, 3: NEXT 
DATA 0,55,-10,10,-10,0,0,24,-4,16,-10,0,0,34,14,4 
DATA 0,-14,14,0,2,12,16,0,0,-6,12,-2,6,6,0,14 
DATA 18,0,0,-30,-10,-10,16,-4,0,-16,40,0,0,12 
DATA 10,10,0,10,-10,10,0,20,12,8,0,-14,9,0 
DATA 9,18,10,0,0,-18,14,0,0,16,14,0,-4,-60,-16,0 
DATA -14,-20,0,-85,-19,0,0,47,-96,0,0,-47,-14,0 
RESTORE 820 
MOVE 400,22 
FOR DRZ%=1 TO 11:READ X%,YZ%:DRAWR X%,Y%, 15: NEXT 
DATA 0,90,35,80,35,-90,100,0,20,-20 
DATA 0,-60,-75,0,0,47,-100,0,0,-47,-10,0 
C/=3 
FOR I%=1 TO 7: READ X%,Y%:GOSUB 310: NEXT 
DATA 71,229,101,359,40,355,193 
DATA 318,220,375,169,375,180,229 
C%=15 
FOR I%=1 TO Z:¿READ X%,Y%:GOSUB 310: NEXT 
DATA 411,229,432,334,516,229 
RESTORE 70 
LOCATE 3,4: PEN O: PAPER 3 
PRINTOCHRS (240) CHRE (8) CHRE (10) CHRE (241) 
LOCATE 18,8: FAPER 15 
PRINT CHR$ (240) CHR+ (8) CHRE (10) CHRE (241) 
PAFER O 
REM 
INE 10,20: INE 6,24 
FOR Y%=14 TO 22 STEP 4 
LOCATE 2,Y%: PEN 10:FPRINT As 
LOCATE 2,Y/+1: PEN 10:PRINT Ex 
NEXT 
FOR Y/=14 TO 22 STEF 4 


1040 LOCATE 13,YZ:PEN 6: PRINT At 


1050 
1060 


1070 
1080 
1090 
1100 
1110 
1120 
11:30 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 


1230 


LOCATE 13,Y%+1:FEN 6:PRINT Bs 

NEXT 

XP7=416: YP%=270 

XV7/=B01 YVY=246 

WCZ=12 

TOD=1: VOPWYZ=0 

PRINTOCHR$ (23) +CHRE (10 5 

TAG 

PLOT -10,0,8 

MOVE XPZ, YP%:PRINT CHR$(232) 7: MOVE XP%, (YPZ-16) 
PRINT OCHR$(233) 2: MOVE XPX, (YP2-32) 2: PRINT OCHRE (234) 5 
PLOT -10,0,9 

MOVE XV%,YV%:FRINT CHR$(236)+CHRE (237) 5 

TAG 

TIME1=TIME+Sk%+INT(RND*1000) 

WHILE TIME1>TIME AND VOPWY%=0 

IF (XP%-XV%)=16 AND (YPZ-YV%)=24 THEN VOPWZ=1 
PLOT -10,0,8:MOVE XPZ,YP%:PRINT CHR$(232)5 

MOVE XPZ, (YPZ-16) 
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1240 
250 
1260 
+32 
1270 
1280 
1290 
1300 
1310 
1320 
10 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1320 
1330 
1540 
1550 
1360 
13570 
1580 
1590 
1600 
1610 
1620 
1630 
1040 
16450 
1660 
11670 
1680 
1690 
1700 
1710 
17720 
1730 
1740 
1750 
1760 
1770 
1780 


PRINT CHR3$(233)3: MOVE XFZ, (YPZ2-32):PRINT CHR*(234)3 
IF XP2<2320 AND YF%:+200 THEN 1300 
IF INKEY(PUZ)=0 AND TEST (XP%+106,YF7+30)=0 THEN YEZ=YPZ 


IF INEEY(PUZ)=0 AND TEST (XPZ+16,YP%+30)=0 THEN 1290 
ELSE 1300 

YPY=YP+32 

1F INKEY(PDZ)=0 AND YP7>48 THEN YPY=YPZ-32 
TE=TEST(XPY%-4,YP%) 

IF INKEY(PLZ)=0 AND TEZ>15 AND XPZ>32 THEN XPZ=XPZ-32 
TE=TEST(XP2+32,YP%) 

IF INKEY(PRZ)=0 AND TEZ>15 AND XPZ<560 THEN XP%=XPY+32 
MOVE XP%, YEZ: PRINTOCHR$(232) 3 2: MOVE XP%, (YPZ-16) 
PRINTOCHR$(233) 32: MOVE XFZ, (YP%-32):PRINT CHR$ (235) 
PLOT -10,0,9 

MOVE XV%,YV%: PRINT CHR$(236)CHR$ (237); 

IF XV%>320 AND YVZ%*200 THEN 1420 

TE=TEST (XV%+28, YVZ+30) 

IF INKEY(VUZ)=0 AND TE=0 THEN YVZ%=YVY/+32 

IF INKEY (VD%)=0 AND YVZ>32 THEN YV%=YV%-32 

TESTEST (XV%-4,Y%) 

IF INKEY(VL%)=0 AND TEXZ>3 AND XV%>=32 THEN” XV%=XV%-32 
TE=TEST (SV/ +64, YVY%) 

IF INKEY(VR%)=0 AND TEZ>3 AND XV%í=353Q THEN XVYEXVY+z32" 
MOVE XVZ, YV%: PRINTOCHRS (238) CHRE (239) 

ON SQ(1) GOSUE 50 

PLOT -10,0,8:MOVE XP, YP%:PRINT OCHRS (232 

MOVE XFX, (YPZ-16) 

PRINT CHR$(233) 3: MOVE XEZ, (YP2-32) 1: PRINT -CHR$ (235) 
IF INKEY(PF%)=0 - AND TOD=1 THEN GUSUB 460 

MOVE XPZ,YEZ:PRINT OCHR$ (232): MOVE XEZ, (YPZ-16) 
PRINT OCHRE (233) 3: MOVE XPZ, (YP2-32):PRINT OCHR$(234) 5 
PLOT -10,0,9 

MOVE XV%, YV%: PRINT CHR$ (238) CHR+ (239); 

IF INKEY(VEF%)=0 AND TOD=2 THEN GOSUB 390 

MOVE XV%, YV%, 

PRINT CHR$(236)CHR$(237) y 

WEND 

IF VOPW%=1 THEN GOTO 1670 

SOUND 2,150,3,7,0,0,10 

IF TOD=1 THEN INE 2,9: INE 14,21: INk 13,19 

BORDER 18: INK 0,0: TOD=2:GOTO 1180 

INE 2,2: INK 14,14 

INK 13,26: BORDER 11: TOD=1: INK 0,13:GOTO 1180 

IF TOD=2 THEN GOTO 1680 ELSE GOTO 1830 


TAGOFF 
PRINT CHRE (23) +CHRS (0) 5 
TAG 


PLOT -10,0,0 

MOVE XPZ,YPZ:PRINT CHR$(143): MOVE —XPZ,YEYZ-16 
PRINT OCHR$(143) 3: MOVE XPXZ,YP2-32:PRINT CHR$(143)5 
TAGOFF 

PRINT OCHRE (23) +CHRE (1); 

PEN 15 

FOR RY=12 TO 24 

INE O,RND*26 
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1790. .LOCATE 6,R/:FRINT "DIABLO GANA" 

1800 SOUND 1,R7*10,1,7 

1810 NEXT: INE 0,0¿RESTORE 196860 

1820 GOTO 19460 

1830 TAGOFF 

18940 PRINT CHRE (23) +CHRE (0) 

1850 TAG 

1860 PLOT -10,10,0 

1870 MOVE XV% , YV%, 

1880 PRINT CHRE (143) 32 MOVE XVZ+32, YV%: FRINT CHAR (143); 
1890 TAGOFF 

1900 PFRINT CHRS (230) +CHRE (4) y 

1910 FOR Rí/=12 TO 24 

19:20 INE O,KND*Z4 

1930 LOCATE 6,R%:FEN 8:PRINT "GANA El EIEN" 

1940 SOUND 1,R%4*10,1,7 

1930 NEXT+ INE 0,0: RESTORE 1980 

1960 FOR DY%*=1 TO 26 

1970 READ NA: SOUND 1,N74,20,7: SOUND 2,N7,20,72 NEXT 
1980 DATA 60,33,47,45,60,0,45,47,45,40,533 

1990 DATA 0,353,0,53,47,45,36,40,40,45,45,47,53,47,60 
2000 FOR 1%=0 TO 13:LOCATE 1,12FRINTOCHRE (11): NEXT 
2010 GOTO 2020 

2020 REM 

COSO INK 1, 1+END*Z6 

2040 LOCATE 3,7FRINT "VA OTRO? (S/N)" 

“20590 1 TNKEY (60)=0 THEN NOZ=0s RESTORE 70:GOTO 2090 
2060 1F- INKEY (46)=0 THEN RUN 

2070 GOTO 2030 

2080 FOR 1%4=0 TO 13:LOCATE 1,26: FRINT OCHRE (8): NEXT 
2090 GOTO 970 

2100 NEXT 

2110 REM INSTRUCCIONES 

2120 INE 0,26: INK 13,3,8 

2130 LOCATE S, 10 FEN 12:FRINTO "%xe* INSTRUCCIONES 4" 
2140 LOCATE 3,10:PEN 13 

2130 FRINT "FULSA ESPACIO PARA "2 ERINT 

2160 PFRINT O" continuar" 

2170 LOCATE 3,18:FEN 9 

2180 PRINT "FULSA E PARA EMPEZAR" 

2190 1F- INKEY (58)=0 THEN CLS: RETURN 

2200 1F INKEYE=" " THEN GOTO 2210 ELSE GOTO 2190 
2210 GOSUE 2770 

2220 LOCATE 1,8:PEN Z:PRINTO "4% eVAME TEO eee 
2230 LOCATE 9,10: FRINTO CHA (238) 3 CHRE (239) 


2240 LOCATE 2,12:FEN 2 
2230 PRINT "ARRIBA ABAJO IZQUIERDA DERECHA" 


2260 LOCATE 5,16:FEN 11:PRINT "JOYSTICKI" 

2270 1F NOTCINEEYE=" ") THEN 2270 

2280 GOSUB 2770 

2290 LOCATE 1,8:FEN 6: PRINTO "re CURAR 

2300 LOCATE 10,10: FEN 4 

2310 PRINT O CHRE (232) 3CHRE (10) 3 

2320 PRINTO CHASE (8) 3 CHRE (233) 3 CHRE (10) 3 CARE (8) 3 COHRE (234) 
230 LOCATE 2,12:FEN 9 

2340 FRINT "ARRIBA ABAJO IZCUTERDA DERECHA" 


DO 


2360 
2370 
2380 
2390 
2400 
2410 
2420 
DAZO 
2440 
2450 
2460 
2470 
2480 
2490 
25000 
2510 
20 
23350 
23040 
2350 
2560 
2u7oO 
280 
2390 
2600 
2610 
26720 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
27590 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
28:30 
2840 
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LOCATE 5,16: FEN 11:PRINT "JOYSTICEO" 


IF NOTCINKEYE=" ") THEN 2360 
GOSUB 2770 
IF NOTCINKEYE=" ") THEN 2380 


MODE 1: INK 1,0: INk 2,7,8 

PRINT "EL CURA DEBE CAMBIAR TODO LAS TUMBAS" 
PRINT "ROSAS EN AMARILLAS Y EL VAMPIRO DERE" 
PRINT "HACER LO CONTRARIO" 

ERINT 

ERINT "EL CURA PUEDE SOLO CAMBIAR TUMBAS" 

PRINT "DURANTE EL DIA, Y EL VAMPIRO " 

PRINT "PUEDE HACER ESTE CAMBIO SOLO" 

FRINT "DURANTE LA NOCHE" 

PRINT 

ERINT "LA NOCHE SE INDICA POR UNA SOMBRA VERDE" 
PRINT "EL CIELO DURANTE EL DIA ESTA SENALADO " 
PRINT "UNA SOMBRA AZUL CIELO" 

PRINT 

PRINT "LAS TUMBAS SE CAMBIAN PONIENMDO TU " 
PRINT "JUGADOR SOBRE ELLA Y DISPARANDO CON EL " 
PRINT "JOYSTICK" 


PRINT 

FEN 2:FRINT " FULSA ESPACIO PARA SEGUIR" 
1F NOT CINKEYE=" ") THEN GOTO 2580 

CLS 

FEN Z:LOCATE 15,2:FRINT "LUCHANDO" 

PRINT 


PEN 3:FRINT "DURANTE SU INTERVALO DE JUEGO" 


FRINT "EL JUGADOR DEBE CAFTURAR A SU OFOMENTE " 
FRINT "PARA UNA VICTORIA INMEDIATA" 

FRINT 

A EN 
FRINT 

PFRINT:ERINT:¿FRINT "NIVEL. DE DIFICULTAD (1-20)" 
FRINT " 1.DIFICIL 20. FÁCIL" 


INFUT SEKEZ 
IF SEZA%1d OR SEA>20 THEN SOUND 1,50,10,7:G0TO 2700 


SE%=(5K7*100) 

PRINT:PEN 2:PRINT " PULSA ESFACIO FARA JUGAR " 
IF NOTCINEREY=" ") THEN 2740 

MODE 0 

RETURN 


FOR I%=1 TO 23:LOCATE 1,1: PRINT CHR*$(8):NEXT 

FOR I%=1 TO 23:LOCATE 1,26: PRINT CHR$(11): NEXT 
BORDER 0: SOUND 1,100,10,7 

FOR D%=1 TO 100: NEXT 

BORDER 26:SOUND 1,200,10,7 

FOR D%=1 TO 100: NEXT 

LOCATE 3,19: PEN 13:PRINT "PULSA ESFACIO PARA SEGUIR" 
RETURN 


Este juegos típico de ordenador ha dado lugar a múltiples 
versiones. Se trata de adivinar un número pensado por el 
ordenador con el. menor número de preguntas posibles. 


Cada vez que se propone dina cifra, €el programa dice si el 
número. pensado es mayor o menor que ésta. Se puede escoger el 
grado de dificultad, aumentando el número de dígitos posibles 
para el número (a adivinar. La puntuación total obtenida 
depende del número de preguntas necesarias para adivinar el 
nímero y del grado de dificultad escogido. 


Este juego puede resultar muy aburrido de jugar en solitario. 
Lo ideal es hacer competiciones entre dos o más amigos para 
ver «quien obtiene mejor puntuación. Los que se conozcan el 
truco. tendrán ventaja: los matemáticos demuestran que la 
mejor forma de llegar lo más rapidamente posible a la  solu- 
ción adecuada (excluyendo "chiripas", claro está) es ir 
preguntando. la cifra intermedia a los dos números, inferior y 
superior, que Se Conozca. 


Por ejemplo, si se ha escogido adivinar un número de tres 
cifras, de entrada se sabe que el número tiene que estar 
entre. O y 999, Lo lógico entonces es preguntar 5300. si el 
ordenador responde que el núnero es menor ya sabemos que está 
entre 0 y 300. La pregunta siguiente sería 2390 0 (00-0)/2), 
y asi hasta dar con el número exacto. 


s5i se sigue este método, el número máximo de preguntas 
necesarias para adivinar cualquier número de 1 cifra es de 4 
preguntas. Fara un número de 4 cifras ser suficiente con 
formailar, como máximo, 1% preguntas. 


10 REM "incognita 

20 CLS 

30 p=100 

40 PRINT "He pensado un numero" 

50 PRINT:PRINT "Puedes intentar adi-vinarlo..."*PRINT 
60 'PRINT "Si te equivocas te dire si es mayor o menor" 
70 PRINT 

80 PRINT "Los puntos que ganes" 

90 PRINT "dependen del numero de intentos" 

100 PRINT:PRINT:PRINT " ANIMO": PRINT:*PRINT 

110 INFUT “Grado de ificultad (1...4)"3d 

120 1F d<1 OR d54 THEN 110 

130 IF d=1 THEN k=424=10 

140 IF d=2 THEN k=10:4=5 

130 IF d=3 THEN k=15:14f=3 

160 IF d=4 THEN k=20:f=2 

170 PRINT:PRINT "o ...oo ooo... "“¿.PRINT 

180 a=INT(RND(2)*(10d)) 

190 PRINT "Dime un numero del O al "3(10*d)-1;5 
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200 INPUT n 

210 k=k-1 

220 IF nía THEN PRINT "Demasiado pequeno" 

230 IF n>»a THEN PRINT "Demasiado grande" 

240 1F n=a THEN PRINT "Acertaste PUNTOS= "3p2GOTO 270 
250 p=p-f:1F k>0 THEN PRINT "Di otro numero":»GO0TO 200 
260 PRINT "El numero es "zaz" PUNTOS= ";p 

270 PRINT: INPUT "Quieres volver a jugar?(S/N)"3ts$ 

280 IF UPPERS(T$)="S" THEN 10 

290 IF UPPER$(T$)<>"N" THEN 270 

300 END 


Parece inevitable escribir un programa del ahorcado en  —cual- 
quier ordenador doméstico. El que aquí se presenta ofrece 
particularidades gráficas bastante destacables. El muñeco gue 
representa al jugador empieza a ahorcarse por la cabeza. 


Cada vez que se introduce una letra equivocada se añade una 
parte más del cuerpo del muñeco, y a la vez, en la parte 
superior derecha se visualiza la letra errónea, permitiendo 
que el jugador recuerde cuales fueron sus jugadas equivoca 
das, 


Hay que acordarse de poner el teclado en modo de mayúsculas, 
va que las minúsculas son interpretadas siempre como letras 
equivocadas. 


El máximo de fallos permitidos es de seis. 


Las instrucciones DATA incorporan una lista de 20 palabras 
con los posibles elementos que usar el ordenador. Es conve- 
niente variar este repertorio a menudo para evitar que los 
jugadores memoricen todas las posibles variantes del juego. 


Aunque las vesiones de este popular juego son muy variadas, 
la que aqui se presenta introduce una buena presentación 
gráfica y sonora. 


10 DIM W+(20) 

20 BORDER 16,11:PAPER 4: GOSUB 790 

30 LOCATE 7,12:PRINT "AHORCADO" 

40 LOCATE 7,13:PRINT "*kAXAAAA" 

50 LOCATE 2,19:PRINT "PARA"*LOCATE 4,21:PRINT "EMPEZAR PULSA 


60 LOCATE 6,23: FRINT "UNA TECLA" 


70 AS=INKEY*: IF Af="" THEN 70 
80 BORDER 2:MODE 1: GOSUBE 420 
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90 DATA REFLEJADO, RELAJADO, CRUEL ,MIEL,EMPITICO, ORGANO, LIBRET 
A, GRUA, EMBUSTERO, RAPIDO 

100 DATA RELOJ ,PARAGUAS,CASA,COCHE, XILOFONO, CABALLO, kKILOGRAM 
O,PATATA,ACEITUNA,MESA 

110 FOR J=1 TO 20 

120 READ W$(J) 

130 NEXT J 

140 N=INT (RND(1)*20)+1 

150 D=0:0=0: T=0 

160 LOCATE 24,3:PRINT "LETRAS= " 

170 PLOT 360,270:DRAW 570,270: DRAW 570,100 

180 DRAW 360,100:DRAW 360,270:PLOT 360,85 

190 DRAW 570,85: DRAW 570,30: DRAW 360,30 

200 DRAW 360,85: PLOT 360,290: DRAW 360,370 

210 DRAW 570,370: DRAW 570,290: DRAW 360,290 

220 PS=W$ (N) 

230 F=LEN (P$) 

240 FOR C=1 TO F:LOCATE 25+0,17:PRINT "-" 

250 NEXT C 

260 LOCATE 26,12: INPUT "LETRA="¿C$ 

270 SW=0 

280 FOR I=1 TO F 

290 1F MID$(P$,1,1)=C$ THEN LOCATE 27,22: SOUND 4,478,100,7:P 
RINT "ACIERTO":LOCATE 25+1,16:PRINT C$:D=D+1:SW=1 

300 NEXT 1 

310 1F SW=1 THEN 330 

320 LOCATE 27,22: SOUND 3,3822,100,7:PRINT "FALLO ":GOTO 350 
330 IF F=D THEN 380 

340 GOTO 260 

350 0=0+1:0N O GOSUE 490,540,570,630,660:LOCATE 26+Y,5:PRINT 
C$: 1F O=6 THEN 710 i 
360 Y=Y+1 

370 GOTO 260 

380 LOCATE 24,21: PRINT "ACERTASTE LA" 

390 LOCATE 27,23: PRINT "PALABRA" 

400 LOCATE 27,22:PRINT " “ 

410 GOTO 840 

420 LOCATE 7,2:PRINT "*JUEGO*":LOCATE 4,4:PRINT "*DEL AHORCA 
DOX+* ” Ñ 

430 FLOT 70,100:DRAW 70,320: DRAW 260,320 

440 DRAW 260,300: DRAW 70,300:PLOT 90,300: DRAW 90,100 

450 PLOT 50,100: DRAW 110,100:DRAW 110,80:DRAW 50,80 

460 DRAW 50,100:PLOT 90,240: DRAW 140,300:PLOT 90,220 

470 DRAW 160,300:PLOT 245,300: DRAW 245,280 

480 PLOT 242,300: DRAW 242,2801 RETURN 

490 FLOT 245,280: DRAW 220,280: DRAW 220,240 

500 DRAW 265,240: DRAW 265,280: DRAW 245,280 

510 PLOT 235,265:PLOT 253,265:PLOT 242,265 

520 DRAW 242,255: PLOT 235,250: DRAW 253,250 

530 RETURN 

540 PLOT 245,240: DRAW 245,230: PLOT 241,240 

550 DRAW 241,230 

560 RETURN 

570 PLOT 245,230:DRAW 275,230:PLOT 241,230 

580 DRAW 211,230:DRAW 211,170:DRAW 221,170 

590 DRAW 221,210:DRAW 225,210:DRAW 225,160 
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DRAW 
DRAW 


260,160: DRAW 
264,170: DRAW 


RETURN 


PLOT 
DRAW 
DRAW 
PLOT 
DRAW 
PLOT 
DRAW 


LOCATE 29,21:3PRINT "HAS":LOCATE 27,223 PRINT " 


223,160: DRAW 
240,140: DRAW 
260,100: DRAW 
228,100: DRAW 


260,210: DRAW 264,210 
274,170: DRANW 274,230 


225,100: DRAW 240,100 
245,140:DRAW 245,100 
260,160: RETURN 
228,95: DRAW 220,95 


220,90: DRAW 233,90: DRAW 233,100 


237,100: DRAW 


257,95: DRAW 265,95 


265,90: DRAW 252,90: DRAW 252,100 
RETURN 
PLOT 219,170:DRAW 219,155: DRAW 213,155 
DRAW 213,170:PLOT 272,170:DRAW 272,153 
DRAÁW- 266,135: DRAW 266,170 


LOCATE 27,23:PRINT "PERDIDO" 
LOCATE 2,22:PRINT "LA FALABRA ERA: ” 
LOCATE 4,23:PRINT PS 


GOTO 
MODE 


840 
0: CLS 


PLOT 10,10: DRAW. 10,390: DRAW 630,390 


DRAW 630,10:DRAW 10,10:PLOT 20,20:DRAW 20,380 


DRAW 620,380: DRAW 620,20: DRAW 20,20 
RETURN 

LOCATE 1,25: PRINT 
AS=UPPERS (INKEYS$): 1F A$="" THEN 850 


IF A$="N" 
RESTORE 90:GOTO 20 


THEN END 


"QUIERES VOLVER A EMPEZAR”? (S/N) " 
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JUEGO DEL FOERER 

Dicen algunos que el poker es un juego de canallas: no hay 
piedad para el perdedor. La versión de este juego realizada 
para ordenador permite al jugador que va perdiendo 


desenchufar el ardenador y olvidar problemas. 


Esta versión simplificada de un juego del FORER, muestra las 
grandes posibilidades gráficas del AMSTRAD. 


El jugador debe apostar contra la máquina. Esta repartirá Y 
cartas, de las que el jugador puede descartarse  posicio- 
nando el. cursor debajo de la carta no deseada y pulsando 
entonces la tecla COFY. —Cuando se ha realizado equivocada- 
mente esta operación, es posible recuperar la carta pulsando 
la tecla "ARRIBA" del cursor. Una vez finalizado el descarte, 
se pulsa la tecla ENTER y el ordenador vuelve a repartir 
tantas cartas como sea necesario para completar la mano. 


Una vez que se han repartido las cartas por segunda vez, se 
visualiza en pantalla la jugada conseguida. —Hay que señalar 
que el valor de las figuras no mejora la jugada, es decir, 
que vale lo mismo un poker de ases que uno de doses. 


Dependiendo del valor de la ganancia, oO de la calidad de la 
jugada elo programa emite diversos sonidos acordes con la 
calidad del juego. 

El programa finaliza cuando el jugador ha perdido los 10 
dólares con los que comienza la partida, aunque esto Ocurre 
después de varias jugadas. 


10 INK O,1: INK 1,24 

20 RESTORE 210: SYMBOL. AFTER 122 

30 FOR CH=123 TO 146 

40 FOR I=1 TO 8 

50 READ N(1):NEXT 1 

50 SYMBOL CH,N(1),N(2) ¿N (3) ,N (4) ,N(5) ,N (6) ,N(7),N(8) 
70 NEXT CH 

80 MODE O2x=7 

90 LOCATE 1,10: FEN 1 

100 FEN 14:LOCATE 2,18:PRINT “Un poca de paciencia..." 
110 REM 

120 sigler(1)=CHR$ (226) 1sigles (2) =CHRE (229) :sigler(3)=CHRE (Z 
27)3i5igles (4) =CHRS (228) 1posit=" "+CHEF(244I+" 0" 

130 RESTORE 330 

140 FOR ch=147 TO 201 

130 FOR i=1 TO 8 

160 READ n(i) 

170 NEXT i 

180 SYMBOL chyntid)yntD,n (0, (4, n (5), 16),n(7),n(8) 
190 NEXT ch 
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200 KEY 139,"mode Z:paper Z2iink 1,24:ipen lilist"+CHRE (13) 
210 DATA 206,219,219,219,219,219,206,0,2024240,224,192,1:28,1 
28,0 0 

220 DATA 0,0,128,123,192,2:24,240,202,63,139,7.13,1,1,0,0 

230 DATA 32,82,154,27,26,30,26,27,48,88,140,12,12,12,12,28 
240 DATA 12,12,12,12,12,12,12,12,26,26,26,26,598,26,26,26 

250 DATA 172,76,12,12,12,12,12,76,6,11,17,33,97,97,97,97 

260 DATA 12,12,205,142,140,140,140,140,76,176,16,32,64,04,32 
, 48 

270 DATA 12,22,35,66,196,200,208,224,24,44,13,14,12,12,12,12 
280 DATA 96,176,0,0,0,0,0,0,26,2/,¿26,26,26,/63,91,26 

290 DATA 172,28,12,12,8,16,160,192,97,97,97,97,97,226,02424 
FOO DATA 140,140,140,140,12,12,12,28,48,48,48,48,48,49,48,536 
310 DATA 192,192,192,192,192,196,104,48,12,12,12,12,12,28,6, 
320 DATA 0,0,0,0,0,0,128,0,/26,26,26,26,/26,26,/26,26 

330 DATA 0,0,0,1,3,7,/15,341,139, 2030) 2300 y 200 y 2 y 240, 194 

340 DATA 128,224,240,224,192,64,64,32,1,1,2,13,59,83,46,56 
350 DATA 192,64,192,128,3,0,31,4,32,16,240,64,192,64,128,0 
360 DATA 0,1,2,3,2,15,8,4,32,248,0,192,/1,3,23 

370 DATA 28,116,170,220,176,64,128,128,4,2,21317113,7541 

3890 DATA 67,15,63,25094 2004 209 y 240,128,192,240,224,192,128,0, 
0,0 . 

390 DATA 0,0,1,8,7,3,3,1,4,34,23,191,2030) 2329 240,194 

400 DATA 144,96,224,224,192,64,64,64,0,0,84,56,108,56,16,:1 
410 DATA 1,3,6,29,43,83,174,88,23,80,48,16,16,16,16,16 

420 DATA 16,16,16,16,16,0,0,0,0,0,0,8,8,8,8,89 

430 DATA 8,8,8,8,8,12,10,152,26,117,170,212,184,96,192,128 
440 DATA 168,8,28,54,28,42,0,0,4,24 24397171619 

450 DATA 67,15,63,255,2593,232468,324128,192,192,224,16,128,0 


460 DATA 0,16,56,56,56,56,56,56,192,64,224,179,28,7,15,4 
470 DATA 32,16,240,192,64,192,224,224,56,56,56,56,56,56,56,5 


480 DATA 56,56,56,56,124,16,16,16,144,96,224,224,192,64,64,3 


490 DATA 8,8,8,62,28,28,28,28,28,28,28,28,28,28,28,28 

500 DATA 7,7,3,2,3,15,8,4,32,240,240,56,205,135,2,3 

510 DATA 28,28,28,28,28,28,8,0,4,2,2,3,7,7,+6,9 ' 

520 DATA 56,16,254,254,254,56,56,0,56,16,254,254,124,56,16,0 
530 DATA 16,56,124,254,124,56,16,0,16,56,124,254,254,254,108 


540 DATA 126,24,24,24,24,28,24,0,126,102,6,60,96,102,60,0 
550 DATA 60,102,96,56,96,98,60,0,120,48,254,50,52,56,48,0 
560 DATA 60,102,96,60,6,70,126,0,60,102,102,62,6,102,60,0 
570 DATA 24,24,24,48,96,98,126,0 

580 DATA 60,102,102,60,102,60,102,102,60,0,60,102,96,124,102 
,102,60,0 : 

590 DATA 115,219,219,219,219,219,115,0,24,60,102,102,102,102 
10250 

£00 DATA 62,108,204,204,204,108,62,0,206,204,108,124,204,204 
¿126,0 

610 FOR I=1 TO 4:SIGLE2%(1)=CHRE (184+1): NEXT 

620 MODE 1: INE 0,1: INK 1,24 

630 LOCATE 2,12:PEN 1:PRINT "QUIERES LAS REGLAS DEL JUEGO? ( 
S o N)":Wé=INKEYS 


JUEGOS DE AZAR 


640 IF UPPFERS(W+*)<>"S" AND UPFERS (Wé)<3+"N" THEN 630 

630 IF UPFERS(W$)="N" THEN 2990 

660 MODE 2: INK 0,1: INK 1,24 

670 X=45 

680 FOR I=1 TO 4:LOCATE 4*1-2,1:PRINT "1 CA" :LOCATE 4x*1-2 
sI+6:FRINT "1"sLOCATE 4*1I+1,1+3:PRINT O SIGLES (1): NEXT: LOCATE 

20,10:PRINT "1d" 

690 FOR I=1 TO 3:FLOT 32%14+7,303-16*1: DRAWR —31,0:DRAWR 0,11 
2: DRAWR 56,0: DRAWR 0,15: NEXFSPLOT -10%,3327DRAÁWR 36,02 DRAWR 

0,112: DRAWR -55,0: DRAWR 0,111 

700 LOCATE 42,4: PRINT "REGLAS DEL JUEGO"¿. LOCATE 42,3:FPRINT " 
710 LOCATE 26,7: PRINT "El objetivo del juego consiste en con 
seguir":LOCATE 26,8:FRINT "el mayor saldo posible.":LOCATE 2 
6), V:FRINT "El saldo de partida es de 10%." 

720 LOCATE 30,10:FRINT "i- Apostar uan cantidad inferior al 

saldo." ¿LOCATE 30,11:FRINT "2- [ ENTER 1], aparecen 3 cartas. 


730 PRINT "3- Realizar agrupamientos particulares borrando 1 
as cartas que no interesan mediante ["3CHRS+(242)3"1, 0 "CHRE (2 
43)5"3 y [COFYI. En caso de error pueden ser recuperadas me 
diante [ "3CHRE(240)3" 3," 

740 FRINT "4- [ ENTER 1], lasscartas borradas se reemplazan, 
el reagrupamiento conseguido se visualiza y la apuesta mult 
iplicad por la ganancia se suma al saldo." 

7590 PRINT "S5- [ ENTER 3, las cartas se borran y comienza otr 
a MmMandOd..."*PRINT:PRINT " AGRUPACIONES Y GANACIAS " 

760 FRINT "*% DNDAda .o.oooooooooooonononoouanannuasn 0) * full 
(1 pareja + 1 trio) co... o. oo... 10": FRINT "* pareja (dos cartas 


del mismo valor) 1: * poker (4 cartas del mismo valor). 40 
770 FRINT "* doble parejas (dos parejaS)j.ono.o..o. 2 * escal 
era de COlO0F.....o.o. nn onsuoss 100": PRINT"* escalera de color a 
l arco oo oo. ooo... 500" 

780 PRINT "* escalera (... de 3 cartas )Jooooo.oo. Y *color 

(3 cartas del mismo signo)... 7 SUERTE!" 


790 t=0: RESTORE 800 

800 DATA 319,25,338,25,379,23,338,55,426,25,319,25,338,25,31 
9,23,284,80,0,10,2834,60,451,55,338,239,319,70,426,60,319,23,3 
38,25,379,25,338, 35 ,426,25,319,25,33 38,25,426,25,379, 70,4319,2 
5,338,25,379,25,426, 80,0,10 

810 DATA 213,60,190, 60,213 54 50,4169,80,213,59,190,5309,213,30,16 
9,30,190,23,213,23,169,25 

820 DATA 190,25,213,25,0,6,213,60,0,10,213,60,190,61,213,30, 
169,70,159,25,169,725,159,25,142,80,0,6 

830 DATA 190,25,213,25,190,60,169,25,190,80,284,23,253,25,22 
5,25,213,80 

840 DATA 319,25,338,25,379,25,426,90 

8530 FOR j=1 TO 2 

860 FOR i=1 TO S:READ p,d:.SOUND 1,p,d,4: NEXT 

870 RESTORE 800 

880 NEXT 3 

890 FOR i=1 TO 29:READ p,d:SOUND 1,¿p,d,4: NEXT 

3900 1F t=1 THEN RESTORE 840:FOR i=1 TO 4:READ p,d:SOUND 1,p, 
d,4:NEXT:GOTO 990 

910 FOR i=i TO 14:READ p,d:SOUND 1,p,d,4: NEXT 
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920 FOR i=1 TO 14:READ p,d:SOUND 1,D,d,4: NEXT 

230 RESTORE 810 

940 FOR i=1 TO 14:READ p,d:SOUND 1,p,d,4: NEXT 

930 RESTORE 830 : 

3960 FOR i=1 TO 13:5READ p,d:SOUND 1,p,d,4:NEXT 

970 IF t=0 THEN t=1: RESTORE 800: G0TO 850 

980 1F g=1 THEN 790 

39390 MODE 1 

1000 INE 0,1: INK 1,Os INE:<H 2,6: INK 3,26 

1010 x=22 

1020 score=1O0:par=0:LOCATE 31,22: PRINT "SALDO":*LOCATE 34,24: 
PRINT "10%" ! 

1030 LOCATE 33,1:FPRINT "PARTIDAS": LOCATE 36,¿23:FRINT par 

1040 LOCATE 1,23: INPUT "AFUESTA : "zjapuslF apusscore OR apurx 
O THEN LOCATE 10,23:PRINT SFC(15):GOTO 1040 

1050 score=score-apul LOCATE 29,243PRINT USING "HHHHRRR y scor 
a . 

1060.FOR iz=1 TO S 

1070 carta(i)=2+1NT (1 3%RND)+(1-+1NT (4éRND))/10 

1080 IF i=1 THEN 1120 

1090 FOR j=1 TO i-1 

1100 1F cartali)=carta(j) THEN 1070 

1110 NEXT j 

1120 NEXT di 

1130 FOR i=1 TO S 

1140 WINDOW +i,i1*8-7,i1*8-1,6,189: PAPER $+i1,3 

1150 CLS *Hi:GOSUB 1690: GOSUB 1760 

1160 NEXT i 

1170 u=3sLOCATE u,19:FRINT posis+ 

1180 FOR i=1 TO S:c(i)=0:carta.avíi)=carta(i)¿NEXT i 

1190 IF INKEY (1)=0 THEN uu=l:uuu=35: GOSUE 2100 

1200 IF. INKEY(8)=0 THEN uu=-1:uuu=3s GOSUE 2100 

1210 IF INKEY(9)=0 THEN x=(u+S5S)/B:FAFER Hx,¿0:CLS Hxic(x)=1:5 
CGUND 1,0,5,4,,:8 

1220 IF INKEY (2)=0 THEN FOR $f=1 TO S:FAFER 4+,0:CLS $f:C(f)= 
1: NEXT: SOUND 1,0,5,4,,+8 

1230 IF INKEY(0)=0 THEN i=(u+5)/8:ic(i)=0: PAPER +$i,3:CLS +$1:6 
OSUBE 1690: GOSUB 1760 

1240 IF INKEY(18)=0 THEN LOCATE u,li9:FRINT " "GOTO 1260 
1230 GOTO 1190 

1260 FOR i=1 TO S 

1270 1F C(i)=1 THEN carta(i)=2+INT (1 3%RND)+(1+1N7T (4*KND))/10 
ELSE 1360 

1280 FOR j=1 TO S31F cartali=cartae.av(j) THEN 1270 

1290 NEXT j 

1300 IF i=1 THEN 1340 

1310 FOR j=1 TO ii 

1320 1F cartal(i)=carta(j) THEN 1270 

1330 NEXT j 

1340 PAFER +$+i,3 

1350 CLS +$i:GOSUB 1690: GOSUB 1760 

1360 NEXT i E 

1370 FOR tp=1 TO 100: NEXT 

1380 p=0:FOR is=1 TO 4: FOR j=i+1 TOS 

1390 1F valor (i)=valor(j) THEN p=p+1 

1400 NEXT j¿NEXT i 
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1410 color=0:FOR i=2 TO 5: 1F CINT(signo(i))=CINT (signo(1)) T 
HEN color=color+1 

1420 NEXT 

1430 moy=0: FOR i=1 TO Simoy=moy+valor (1): NEXT: moy=moy/3 

1440 e.t=0:FOR i=1 TO S:ie.t=e.t+(valor (1)-moy) "2: NEXT 


1430 cant=valor (1)+valor (2)+valor (3)+valor (4) +valor (3) 

1460 1F color=4 AND (e.t=10 OR e.t=293.2)AND (cant=47 OR cant 
=60) THEN manos="ESCALERA DE COLOR AL AS":ganan=0:br=6:G0TO 
1360 

1470 1F color=4 AND e.t=10 THEN mano*+F="ESCALERA DE COLOR":ga 
nan=100:br=9:GOTO 1560 .. 

1480 IF e.t=10 THEN mano*$="ESCALERA":ganan=5:br=5:G0TO 1560 
1490 IF color=4 THEN mano*+="COLOR":ganan=7:br=6:G0TO 15360 
1500 IF p=0 THEN manoF="NADA":ganan=0:br=1 

1510 1F p=1 THEN mano*+="FPAREJA":ganan=1:br=2 

1520 1F p=2 THEN mano*+="DOBLE FAREJA":ganan=2:br= 

1330 1F p=3 THEN mano*$="TRIO":ganan=3:br=4 

1540 IF p=4 THEN manot="FULL":ganan=10:br=7 

1350 IF p>=5 THEN manof="FOKER":ganan=40:br=8 

1560 FOR i=1 TO S 

13570 IF valor(i)=14 THEN valor (1)=1:ganan2=gananimanoz2é=mano 
+tibrea=br:GOTO 1430 

1580 NEXT i 

1390 1F gananziganan2 THEN ganan=ganan2¿mano+=manoZ2+ 7 br=br2a 
1600 LOCATE 1,23:PRINT SPC(17):LOCATE 1,3:FPRINT manos 

1610 score=score+ganan*apu:LOCATE 29,24:FRINT USING "HHHHRHAR 
"score 

16:20 ganan=0:ganan2iz0 

1630 par= dee LOCATE 359, 3:FRINT O USING"44+" par: GOSUE 2130 
1640 IF score=0 THEN LOCATE 13,21:PEN 2:FRINT "x* SE ACAEO E 
L JUEGO **":FOR I=1 TO 1500: NEXT:G=1:GOTO 2240 

1650 LOCATE 3,23:FPRINT.“"£- ENTERI" 

1660 as=INKEYS: 1F ax o CHR*(13) THEN 1660 

1670 IF INKEYF+=CHR*$(13) THEN LOCATE 1,3:PRINT SPC(21): FOR i= 
1 TO S:PAPER +1,0:CLS Hi:NEXT:FOR t=1 TO SO00:NEXT:LOCATE 3,2 
SPRINT SFC(9):GOTO 1040 

1480 GOTO 1670 

1690 O a A E O AI AER ODA 
IF signo(i):<2.1 THEN z=1. ELSE z=2 

1700 1F valor (1)<=9 THEN valor+=CHRE (48+valor (1)):valor2+=CH 
R$ (188+val or (1)):GOSUB 1790: RETURN 

1710 1F valor (i)=10 THEN valor$=CHR*(123) 2: valor24+= CHR+(198) 3 
GOSUB 1790: RETURN 

1720 IF valor(i)=11 THEN valor+="V": valor 2+=CHRK3+ (199) : GOSUR 
1790: RETURN 

1730 IF valor (i)=12 THEN valor*="D":valor2+=CHR3$ (200) : GOSUR 
1790: RETURN 

1740 IF valor(i)=13 THEN valor+="R":valor2$=CHR+$ (201): GOSUE 
1790: RETURN 

1730 IF valor(i)=14 THEN valor*="1":valor2t=CHR$ (189) : GOSUE 
1790: RETURN 

1760 PEN +i,O:LOCATE +*i,1,1:PRINT 4i,¿CHR$(124) :LOCATE $i,7,1 
SPRINT +ti,CHR$ (126): LOCATE +$i,1,13:PRINT +i,CHR+$(1235) 

1770 FLOT 128*1-28,112,0:DRAWR 11,0:DRAWR 0O,11:DRAWR —1,0:2: DR 
AWR 0,-10: DRAWR -10,0:FLOT 128*i-24,114: DRAWRK 5,0O:DRAWR 0,3: 
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DRAWRE- —1,0: DRAWR 0,4: FLOT 1289*1-22,116: DRANR 1,0: DRAWR 0O,l: 
DRAWR —1,0 

1780 FLOT 128*1i-120,120: DRAWR 0,191,1: DRAWRK 93,0,1: DRAWR 0, 
191,1: DRAWR -93,0,1: RETURN 

1790 FEN Hi,z:LOCATE +i1,2,2:PRINT +i,valor*:LOCATE $$i,6,2:FR 
INT +i,valor*:LOCATE +$i,2,12:3PRINT Hi, valor234: LOCATE Hi, 6,12 
¿PRINT +*+i,valor2+ 

1800 signos$= sigle*+(signo(i)):isignoz2*=sigle*+(signo(i)) 

1810 ON valor (1) GOTO 1820,1840,1820,1830,1820,1850,1850,183 
0,1820,1850,1920,1950,1980 

1820 LOCATE +1,4,7:FRINT +i,signo*+:1F valor (1)=14 THEN RETUR 
N 

18930 1F valor (1):3 THEN 1850 

1840 LOCATE +$1,4,32FRINT *+i,¿signorF:LOCATE +$+1,4,11:FPRINT +i,s 
igno2+: RETURN 

1850 LOCATE +i1,3,3:PRINT +$i,signo*F:LOCATE +1,3,11:PRINT +$i,s 
ignozks LOCATE PO FRINT +i,signo2*: 1F valor(i)2i6 THEN RE 
TURIN 

1860 IF valor (1):8 THEN 1900 

1870 LOCATE +$1,3,7:FRINT $+i,signoF:LOCATE +$+1,5,7:FRINT +i,si 
gno+: 1F valor(i)=6 THEN RETURN 

18980 LOCATE +$1,4,5:PRINT +i,signoRs 1F valor(i)=7 THEN RETURN 
1890 LOCATE +1,4,9:PRINT +i,¿signo2*: RETURN 

1900 LOCATE +$+1,3,S:FPRINT +i,signofsLOCATE $*1,5,3:FRINT $i,si 
gnosF:LOCATE +$1,3,9FRINT +i,signoRF:LOCATE +1,3,9:PRINT +i,si 
gno2*s 1F valor (1)=9 THEN RETURN 
1910 LOCATE +1,4,4:FPRINT +i,signo*F:LOCATE +1,4,10:PRINT +i,s 
igno2+: RETURN 

1920 LOCATE +$i1,2,3:+PRINT +i,signok; CHRS (147) +CHRE (148) +CHR3 
149) signos: LOCATE +$1,3,4:FRINT ti, CHRE (150) +CHRS (1391) +CHRE ( 
152 

1930 LOCATE +1,3,10sPRINT +1, CHRE (1393) +CHRE (154) +CHRS (135) :L 
OCATE +i1,2,11:FRINT Hi ¡signo2$; CHE (156) +CHRE (157) +CHRE (158) 
¿signo2+ 

1940 GOSUE 20101 RETURN 

1930 LOCATE +41,2,3:PRINT +i,¿signo+; CHRE (1359) +CHRE (160) +CHRS ( 
161)isignoF¿LOCATE +$1,2,43FPRINT +i, CHR$ (162) +¿CHRE (163) +CHRE € 
151)+CHRE (15:23) :LOCATE +1,2,5:PRINT +i,¿CHRE (164) :LOCATE +$i,2, 
S6:3PRINT +$i, CHRE (165) 

1960 LOCATE +i1,6,8:FRINT +i,¿CHR$(166) : LOCATE +1,6,9:PRINT +$i 
s CHRE (167) 3 LOCATE +$1,3,10:PRINTO 4, CHAS (153) 5 CHRS (154) +CHRE ( 
168) +CHR$ (169) ¿ LOCATE +i,2,11: PRINT +i ¡signoz 245 CHRS (170) +CHR 
$ (171) +CHRE (172) ¿signo 

1970 GOSUB 2010: RETURN 

1980 LOCATE +$i,2,3PRINT *i,signo+;CHRE (159) +CHR$ (160) +CHRE ( 
178);signosF:LOCATE +$1,2,4:PRINT +1, CHRS (17:33) +CHRE (150) +¿CHRS ( 
174) +CHR+$ (175): LOCATE +$1,2,5:PRINT +i,CHR$*(176):LOCATE +$i,2, 
G6:FRINT +i,¿CHR$ (177) 

1990 LOCATE $i,6,8: FRINT Hi, CHR* (179) :¿LOCATE +$+1,6,9:FRINT +*i 
,CHR+ (180) :LOCATE $i1,3,10: PRINT Hi, CHR$ (181) +CHR$(182) ) CHAR ( 
155) +CHR$ (183) : LOCATE 4i,2,11:PRINT *+i,signo2+; CHR$ (184) +CHR 
$ (171) +CHR* (172) 3signo2* 

2000 GOSUE 2010: RETURN 

2010 PLOT 128*1-70,233,2 3 DRAWR 13,-S:DRAWR 7,7: DRAWR 30,5 
Os DRAWRK 4,-4:FLOTR -4,4: DRAWR 12,29: DRAWR 0,17: DRAWR 16,16: 
DRAWR 10,0: DRAWR 6,-6: DRAWR 70: DRAWR 3,6 
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2020 PLOTR -20,-13: DRAWR -8,-8: DRAWR 0,—-6:PLOTR 2,0: DRAWR O, 
7:+FLOTR 2,2: DRAWR 0,-10:PLOTR —-6,2:DRAWR 23,10: FLOTR 11,7:D 
RAWR 0,15 
2030 FLOT 128xi-75,176:DRAWR -13,5:DRAWR —7,7: DRAWR 50,50: DR 
AWR -4,4:PLOTR 4, -4:DRAWR 12,-29: DRAWR 0,-17:DRAWR —16,—-16:D 
RAWR -10,0: DRAWR 6,6: DRAWR —7,0: DRAWR 3 ¿mb 
2040 PLOTR 20,13:DRAWR 8,8: DRAWR 0,6: PLOTR -2,0:DRAWR 0,-7:P 
LOTR -2,-2:DRAWR 0,10: FPLOTR 6,-2:DRAWR -23,10:PLOTR -11,-7:D 
RAWR 6,-—2: DRAWR -23, 10: PLOT -11,-7:DRAWR 0.-15:PLOT 128x*i-97 
,191: DRAWR 49,49 
2050 RETURN 
2060 LOCATE X,1 
2070 PRINT CHR$(127)+CHR$(128)3" "¿CHRE(129) 
2080 LOCATE X,2 
2090 q$=""¿ FOR i=130 TO 137:q$=q$+CHR$(1):NEXT i:PRINT q$ 
2100 1F U=UUU THEN SOUND A,190,3,6: RETURN 
2110 FOR X=1 TO 8:U=U+UU:LOCATE U,19:PRINT Posis$:FOR T=1 TO 
20: NEXT: NEXT X 

2120 SOUND 1,239, 10,5: SOUND 1,142,15,4: SOUND 1,201,22,5:RETU 
EN 
2130 ON br GOTO 2140,2150,2150,2150,2180,2180,2200,2200,2220 
¿110 
2140 ENT 1,5,0,1,80,5,2: SOUND 1,379,100,7,,1: RETURN 
2150 SOUND 1,119,20,5: SOUND 1,0,4: SOUND 1,119,15,5: SOUND 1,6 
0,30,7:1F br=2 THEN RETURN 
2160 SOUND 1,71,15,5: SOUND 1,60,30,7:1F br=3 THEN RETURN 
2170 ENT 2,20, Y. 1,20,1,1: SOUND 1,60,35,7,,2: RETURN 
2180 SOUND 1,119,20,5: SOUND 1 195,20, 51 SOUND 1,60,25,7: SOUND 
1,0,5: SOUND 1,71,20, 6: SOUND 1,60,30,7:1F br=35 THEN RETURN 
2190 SOUND 1 ,160,35,7,,21 RETURN 
2200 SOUND 1,95,20,5: SOUND 1,71,35,7: FOR is=1 TO 6:SOUND 1,95 
113,5: SOUND 1,0,3: NEXT: SOUND 1,113,20,5: SOUND 1,95,20,5: SOUN 
D 1,71,35,7: 1F br=7 THEN RETURN 
2210 SOUND 1,0,4: SOUND 1,71,20,5: SOUND 1,95,20,5: SOUND 1,0,4 
¿SOUND 1,95,20,5: SOUND 1,0,4: SOUND 1,95,20,5: SOUND 1,113,20, 
5: SOUND 1,142,20,5: RETURN 
2220 SOUND 1,159,25,7: SOUND 1,190.3,7: SOUND 1,0,10:SOUND 1,1 
90,25,71 SOUND 1,179,25,7: SOUND 1,159,25,7: SOUND 1,95,35,7:50 
UND 1,0,5: SOUND 1,95,25,7: SOUND 1,0,5: SOUND 1,119,30,7: 1F br 
=9 THEN RETURN 
2230 ENT 3,10,3,2,10,-3,2,10,3,2,10-3,2,10,3,2:FOR i=1 TO 31 
SOUND 1,119,95,7,,3: NEXT: RETURN 

240 SOUND 1,758,60,6: SOUND 1,0,5: SOUND 1,758,50,6: SOUND 1,0 


o, 
qa 


2230 SOUND 1,7358,20,6: SOUND 1,0,3: SOUND 1,738,40,6: SOUND 1,0 

n15 

2260 SOUND 1,638,40,6: SOUND 1,676,30,6: SOUND 1,738,:30,6: SOUN 

D 1,0,5 

2270 SOUND 4 ies, 6: SOUND 1,0,5: SOUND 1 

tb SOUND 1,0,3: SOUND 1,8531,30,6: SOUND 1 
290 FEN ON i=1 TO 2000: NEXT:CLS: 

5500 LOCATE 6,3:PRINT "Quieres volver a jugar? (S 0 N)" 

2310 af=UPFERE CINKEYE) 

2320 1F af <2 "N" AND as <> "S" THEN 2300 

2330 1 af="N" THEN CLS:LOCATE 7,12:PRINT "Hasta la proxima. 
e “¡FOR t=1 TO 1000:NEXT:GOTO 660 
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2340 LOCATE 1,10:PRINT "Quieres las reglas del juego (S o N) 
m2. 

2350 as=UPFERE (INKEYE) 

2360 1F arx2"S" AND ax "N" THEN 2340 

2370 1F af="N" THEN 990 ELSE 660 


He aquí una forma un tanto sofisticada de rellenar los 
boletos de la lotería primitiva. Este programa Ofrece una 
combinación, totalmente aleatoria, de posibles números acer-— 
tantes de este juego, asi como la confección de los boletos. 


Para realizar todo ello el programa genera seis números 
aleatorios más un número complementario. Con estas siete 
cifras se obtienen todas las posibles combinaciones  ganado- 
ras. Estas combinaciones se visualizan en bloques como si se 
tratara de un boleto, con una "X" en la posición de los 
números por los que se apuesta. 


Para la generación de los números aleatorios se Utiliza la 
instrucción RND, dividiendo el intervalo [0,13 en 49 subin- 
tervalos edguiprobables. 


La absoluta aleatoriedad del juego de la loteria primitiva no 
permite realizaciones excesivamente complejas ni sofisticadas 
de programas de relleno de boletos, al contrario de lo que 
ocurre con las quinielas. Sin embargo este programa deja 
totalmente al azar el relleno de los boletos, como se hace 
con los dados "1-X-2" para acertar los partidos de la liga, 
método gracias al cual más de un quinielista se ha hecho 
millonario. 


10 DIM combi (7) ,bloque(7,7),c (6) 

20 MODE 2:BORDER 10 

3O FOR iz=1i TO 7 

40 combi (i)=0 

50 NEXT i 

60 CLS 
70 PRINT "Quieres saber la combinacion ganadora? (s/n)" 
80 as=UPPERS$(INKEYS$) 

90 IF as$="" THEN 80 

100 IF a$="N" THEN END 

110 IF NOT(as$="S") THEN 80 

120 PRINT:PRINT "Estoy pensandola..." 

130 WHILE kx<7 

140 GOSUB 840 

150 WEND 

160 PRINT:PRINT "La combinacion ganadora es:" 
170 FOR i=1 TOS 

180 PRINT 

190 NEXT i 

200 FOR i=1i TO 6 

210 PRINT combi (1); 

220 NEXT di 

230 PRINT 

240 FOR i=1 TO S 

250 PRINT:NEXT i 

260 PRINT "El numero complementario es:"; 


s10 
320 


380 
390 
600 


6:30 
640 


680 


700 
710 


740 
730 


770 
780 
790 
800 
810 
820 
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PRINT " "¿combi (7) 

FOR i=i TOS 

PRINT 

NEXT i 

PRINT "Te indico en bloques"; 

PRINT " las posibles combinaciones? (s/n)" 
aF=UPPERS (INKEYs) 

IF af="" THEN 330 


IF as="N" THEN END 

1F NOT (a+="S") THEN 330 

FOR conta=1 TO 7 

CLS:PRINT "Bloque"sconta: FRINT 
GOSUB 420 

NEXT conta 

END 
DATA 
DATA 


o E E E E 
CAN-NO00+ 
AS E 
€ LL Q . >. 
0 NO 


READ x 

c(h)=combi (x) 

NEXT h 

FOR i=1 TO 7 

FOR j=1 TO 7 

IF j=1 THEN k=i ELSE k=k+7 

d=0 

FOR h=1 TO 6 

IF d=0 THEN 600 

GOTO 640 

IF c(h)=k THEN 620 ELSE bloqueíi,j)=k 
GOTO 640 

bloque(i,j)=0 

d=1 

NEXT h 
NEXT j 
NEXT i 

FOR is=1 TO 
PRINT: NEXT 
FOR i=1 TO 
FOR j=1 TO 
IF bloqueti,j)=0 THEN PRINT " X "3:GOTO 740 

IF bloque(ti,j)<10 THEN PRINT " ";bloqueti,j); 
ELSE PRINT bloqueíij,¿j); 
NEXT j 

FRINT 

NEXT i 

PRINT:8PRINT:FRINT "Copia el bloque" 
PRINT:3FRINT¿FRINT "Quieres ver otro bloque? (s/n)" 
as=UPFFERSCINKEY+) 

IF ar=""THEN 790 

1F as="S" THEN RETURN 

IF as="N" THEN GOTO 830 ELSE 790 


N y q 
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830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
930 
960 
970 
980 
990 


END 

k=k+1 

RANDOMIZE TIME 

x=RND 

FOR i=1 TO 49 

a=(i-1)/49 

b=i /49 

IF x>=a AND x<b THEN 920 
NEXT i 

FOR j=1 TO 7 

IF i=combi(j) THEN 860 
NEXT j 

FOR j=1 TO 7 

IF NOT (combi (j)=0) THEN 990 
combi (j)=i 

RETURN 

NEXT j 
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CUZZLE 


LE 


Los tradicionales puzzles de madera o cartón se pueden 
también "simular por ordenador, como lo hace este programa 
que además convierte al Amstrad en un verdadero sistema de 
diseño asistido. 


Se trata de reconstituir una figura, previamente dibujada 
por el jugador, y que el ordenador se encarga de dividir 
en trozos y desperdigarlos por la pantalla. 


Por eso el juego ofrece un menú de opciones. El jugador debe 
comenzar por diseñarse las figuras. Fara eso escoge la 
paleta de colores (hasta 16 en total, que pueden ser parpar 
deantes). En la creación del dibujo, sobre un recuadro de 80 
por 80 puntos se debe utilizar un joystick. Con el se puede 
mover el cursor por la pantalla y trazar lineas, rellenar de 
color contornos cerrados o cambiar, en cualquier momento, la 
paleta de colores. 


El programa permite almacenar hasta cuatro figuras diferen-— 
tes por sesión de trabajo. Estas pueden guardarse en memoria 
externa, disquete o casete, y recuperarse en cualquier mo- 
mento. 


Fara reconstituir el dibujo, del que aparece una copia en la 
parte superior de la pantalla, se utiliza el joystick. Este 
permite el desplazamiento del cursor en ocho. direcciones. 
Disparando con él se coge la pieza colocada debajo de la 
cruz. que representa el cursor. Luego hay gue trasladar la 
pieza al lugar adecuado. 


Una de las muchas dificultades que se presentan al jugador 
en su tarea de recomponer la figura, es un pequeño animalito 
empeñado en coger las piezas. Hay que disparale con el 
joystick para evitar que destruya el trabajo. 


Cada vez que se consigue colocar una pieza en el lugar 
adecuado el ordenador emite un sonido. 


El juego termina con la reconstrucción total del puezle. 


Los que no se interesen por dos juegos de paciencia, y sean 
más aficionados a los juegos creativos, encontrarán en este 
programa materia más que suficiente con que satisfacerse, 
porque la subrutina de creación de dibujos es, en si sóla, 
un programa en el que se han explotado al máximo las capaci- 
dades gráficas del Amstrad. 


10 ENV 1,15,-1,5 

20 ENV 2,1,15,2,15,-1,3 

-3O ENV 3,8,1,6,3,1,6,1,0,100,8,-1,6,3,-1,6 
40 MEMORY 29999 
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ONE 
260 
270 
280 
290 
E" 

300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
300 
310 
320 
330 
340 
330 
5360 
570 
580 


DIM EPZ2(100,4) ,EIM%(20,25,1),C0(15,1),S50%(100) 

N=42800: RESTORE 90 

READ C$: 1F C$="FIN" THEN 110 

C=VAL ("2£"+C$) :POKE N,C:NeN+1:GOTO 70 

DATA 1e,8,1,0,0,21,0,0,16,4,7e,2,23,3,15,C2 
DATA 3a,a7,d5,11,fc,7,19,d1,1d,c2,38,a7,c9,FIN 
N=42830: RESTORE 140 

READ C$:1F C$="FIN" THEN 160 

C=VAL ("2"+C$) :POKE N,C:N=N+1:GOTO 120 

DATA 58,A7,D5,11,FC,7,19,D1,1D,C2,56,47,C9,FIN 
DATA 58,47,D5,11,FC,7,19,D1,1D,C2,56,47,C9,FIN 
FOR N=3 TO 15: INK _N,N+10: NEXT 

DATA 3E,0,32,52,58,32,53,58,2A,55,48,E5,1,28 
DATA 28,0,9,C1,1E,8,16,4,4,BE,C0,23,3,15,20,F8 
DATA D5,11,FC,7,19,E5,05,E1,19,E5,C1,E1,1D,20 
DATA E6,30,28,4,23,3D,20,FC,36,1,21,94,A7,6 
DATA 64,3E,1,BE,C0,23,5,20,FA,32,53,A8,C9,FIN 
RESTORE 170:N=43000 

READ C$:1F C$="FIN" THEN 250 
=VAL ("2:"+C$) : POKE N,C2N=N+1:GOTO 230 

MODE 2: INK 1,20:BORDER O: INK 0,O:LOCATE 25,6:PRINT "OPCI 

5" 

PRINT:PRINT:PRINT " * 1 - INSTRUCCIONES" 

PRINT 

PRINT " * 2 —- SALVAGUARDA EN CASETE DE LOS DIBUJOS" 


PRINT:PRINT " * 3 —- LLAMADA A LOS DIBUJOS DESDE EL CASET 
PRINT:PRINT " * 4 -— ESCOGER LA PALETA DE COLORES" 
PRINT:PRINT " * S — CREACION O MODIFICACION DE DIBUJOS" 
PRINT:PRINT " « 6 — LISTA DE DIBUJOS EN MEMORIA" 
PRINT3PRINT " * 7 — JUEGO" 


A$=INKEY+$: IF A$="" THEN 340 

A=VAL (A$):1F A=0 OR NOT(A=7) THEN 340 

ON A GOTO 4240,4660,4820,3720,370,4940,1940 

REM 

GOTO 5100 

MODE 2:PRINT "DESEAS ACORDARTE DE UN DIBUJO (S/N)”?" 
AS=UPPERS (INKEY+$): 1F As$=""THEN 400 

IF As$="N" THEN 490 

IF NOT(A+="S") THEN 250 


CLS:PRINT "QUE NUMERO? ": INPUT N 

IF NOT (N=1 OR N=2 OR N=3 OR N=%3) THEN 430 
DEP=:0000+ (N-—1) *3200 

AR=49812 

MODE 0:GOSUB 3100 

GOTO 510 

REM 

MODE O 


PEN 15:0=0:V=-1:VI=1: IND=1:C00=15 

LOCATE 1,1:PRINT "IMP.RAPI" 

FOR N=0 TO 15: 1F CO(N,1)=27 THEN 550 

INK N,CO(N,O0),CO(N,1):GOTO 560 

INE N,CO(N,O) 

NEXT: 1F CO(15,0)<20 AND CO(15,1)<>27 THEN INK 15,24 
FOR N=0 TO 15 

PEN N:LOCATE N+1,3:PRINT HEX*(N) ¿NEXT 


590 X=160:Y=112 ñ 
£00 LOCATE 1,22:PEN 15: PRINT"COMdes+$: P-E-V-C-R=F 
610 B=TEST (X,Y) 


620 PT=0 


630 A=JOY(0):PLOT X,Y,O2PLOT X,Y,15:FOR F=1 TO VI¿NEXT 


640 AS=UPPERS (INKEYS$) 23 1F As$=" 
THEN 1330 
660 IF A=0 THEN 630 

670 PLOT X,Y,B 
680 IF A>10 THEN PT=1:A=A-16 


650 IF As="M" 


690 IF A=4 THEN 
700 IF A=8 THEN 
710 IF A=2 THEN 
720 IF A=1 THEN 
730 IF A=9 THEN 


X=X-—4 
X=X+4 
Y=Y-2 
Y=Y+2 
X=X+4: Y=Y+2 


740 IF A=10 THEN X=X+4: Y=Y-2 
7350 IF A=6 THEN X=X-4: Y=Y-2 
760 IF A=5 THEN X=X-4: Y=Y+2 
770 1F Xx<160 THEN X=160 
780 IF X>476 THEN X=476 
790 1F Y<112 THEN Y=112 
800 IF Y>270 THEN Y=270 
810 IF PT=0 THEN 610 
820 PLOT X,Y,CO 


830 GOTO 610 
840 REM 


850 LOCATE 20,1:PRINT "*" 
9860 AS=UPPERS (INKEYS) 3 1F 


870 IF As$="R" 
9880 IF A$="E" 
890 IF As$="F" 
900 IF As$="y" 
910 IF As$="C" 
920 IF A$="p" 


930 LOCATE 20,1:PRINT" 


940 REM 
950 V=NOT V 
960 LOCATE 5,1 


970 IF V=0 THEN VI=100:PRINT"LENT" 


THEN 
THEN 
THEN 
THEN 
THEN 
THEN 


GOSUE 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 


As="" THEN 860 


1060 
1320 
1820 
930 

1000 
4190 


"RETURN 


" THEN GOSUB 840 


980 IF V=-1 THEN Vl=1:PRINT"RAPI" 


990 LOCATE 20,1:PRINT" 


1000 REM 


:« 1010 LOCATE 1,24: INPUT"COLOR";¿CO*$:3 IF CO$="" THEN 1010 


1020 CO=VAL ("2"+C05$) 
1030 LOCATE 1,24:PRINT" 
1040 LOCATE 20,1:PRINT" 


1050 RETURN 
1060 REM 


1070 PLOT X,Y,B:CF=B 
1080 LOCATE 1,23:PRINT" 


1090 LOCATE 1,23: INPUT"COLOR DEL BORDE "3CBS$ 
1100 IF CB$="" THEN 1090 ELSE CB=VAL ("2"+CB+$) 
1110 LOCATE 1,24: INPUT"COLOR RELLENO. "¿CR$ 

1120 IF CR$="" THEN 1110 ELSE CR=VAL ("2£"+CR3$) 


1130 LOCATE 1,23:PRINT" 
1140 LOCATE 1,24: PRINT" 


"+ RETURN 
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1150 LOCATE 20,1: PRINT" * 

1160 XX=X:YY=Y:PLOT X,Y,CF:AX=X 

1170 A$=INKEY$: 1F Ag=" " THEN 1320 

1180 T=TEST(X,Y) 

1190 IF NOT(T=CF) THEN 1220 

1200 X=X-4: 1F X>160 THEN 1170 

1210 X=X+4:GOTO 1270 

1220 T=TEST(X,Y):1F NOT(T=CB) THEN 1200 
1230 X=X+4:2 IF X>476 THEN 1320 

1240 IF X>AX THEN 1250 ELSE 1260 

1250 TT=TEST(X,Y+2): 1F TT=CB THEN 1320 
1260 T=TEST(X,Y): 1F T=CB THEN 1230 

1270 H=xX 

1280 T=TEST(H,V): 1F T=CF THEN PLOT H,Y,CR 
1290 H=H+4: 1F H>476 THEN 1310 

1300 T=TEST(H,Y): 1F NOT(T=CB) THEN 1280 
1310 Y=Y-2:1F Y>=112 THEN AX=X:GOTO 1170 
1320 Y=YY:X=XX:B=CR:PLOT X,Y,B: RETURN 
1330 REM 

1340 PLOT X,Y,B:LOCATE 1,1: INPUT" IMAGE No "31$ 
1350 IF l$=""THEN 1340 ELSE I=VAL(1$) 
1360 IF 1<1 OR 1>4 THEN 1340 

1370 ARR=(I-1)*3200+30000 

1380 FOR N=0 TO 9 

1390 FOR M=0 TO 9 

1400 DEP=49812+Mx*4+N*80 

1410 HDEP=INT(DEP/256) *LDEP=DEP-HDEP+*256 
1420 HARR=INT(ARR/256) : LARR=ARR-HARR*256 
1430 POKE 42806,LDEP 

1440 POKE 42807,HDEP 

1450 PUKE 42803,LARR:POKE 42804,HARR 
1460 CALL 42800 

1470 ARR=ARR+32 

1480 NEXT M,N 

1490 FOR N=0 TO 15:POKE 42860+N*2,C0(N,0) 
1500 POKE 42861+N*2,C0(N,1):NEXT 

1510 GOTO 250 

1520 REM 

1530 PLOT X,Y,B:CA=B 

1540 LOCATE 1,24: INPUT"NUEVO COUL"¿CN$ 
1550 IF CN$=""THEN 1540 ELSE CN=VAL ("8"+CN$) 
1560 LOCATE 1,24: PRINT" 

1570 XX=X: YY=Y 

1580 As=INKEY$: IF A$=" "THEN 1760 

1590 PLOT X,Y,CN 

1600 X=X+4:GOSUB 1770 

1610 IF TEST(X,Y)=CA THEN 1580 

1620 Y=Y+2:G0SUB 1770 

1630 IF TEST'(X,Y)=CA THEN 1580 

1640 X=X-4:G0SUB 1770 

1650 IF TEST(X,Y)=CA THEN 1580 

1660 X=X-4:GOSUB 1770 . 

1670 IF TEST(X,Y)=CA THEN 1580 

1680 Y=Y-2:GOSUB 1770 

1690 1F TEST(X,Y)=CA THEN 1580 

1700 Y=Y-2:G0SUB 1770 


42 
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1710 


1720. 


1730 
1740 
1750 
1760 
1770 
1780 
-1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 


220 


2230" 


2240 
2250 
2260 


IF TEST(X,Y)=CA THEN 1580 

X=X+4: GOSUB 1770 

IF TEST(X,Y)=CA THEN 1580 

X=X+4: GOSUB 1770 

IF TEST(X,Y)=CA THEN 1580 

X=XX2 Y=YY:B=CN:PLOT X,Y,B:LOCATE 20,1:PRINT" ":RETURN 
IF X>476 THEN X=476 

IF X<160 THEN X=160 

IF Y>270 THEN Y=270 

IF Y<112 THEN Y=112 

RETURN 

REM 

PLOT X,Y,B:CA=B 

LOCATE 1,24: INPUT"NUEVO COLOR" 5CNS$ 

IF CN3=""THEN 1840 ELSE CNSVAL ("8M+CN$) 
LOCATE 1,24:PRINT" 

F=160 


T=112 


A$=INKEY$: 1F As$=" "THEN 1930 

IF TEST(F,T)=CA THEN PLOT F,T,CN 

T=T+23 1F T<272 THEN 1890 

F=F+4: 1F F<480 THEN 1880 

LOCATE 20,1:PRINT" ":B=CN:RETURN 

REM 

MODE 2: INK 1,24: INK 0,1 

FOR N=1 TO 100:EP%(N,0)=0: 50% (N)=0:2POKE 42899+N,0: NEXT 
POKE 42998,1:POKE 42999,1:50%(98)=1:507/(99)=1:PB=0 
FOR N=1 TO 20:FOR M=1 TO 25 
EIMZ(N,M,0)=0:E1IMZ%(N.M,1)=03NEXT MN 

INPUT "IMAGEN" .1$ 

IF TS=""THEN 7=3200% (INT (RND(1)+*4)) +30000*GOTO 2030 
Z= (VAL (1$)-1) *3200+30000: 

PRINT:PRINT"CON O SIN PUZZLE (C/S)" 

AS=UPPERS (INKEYS): 1F As=""THEN 2040 

GOB=0: IF A$="C" THEN GOB=1 

FOR N=0 TO 15: 1F CO(N,1)<27 THEN 2080 

INK N,CO(N,O):GOTO 2090 

INK N,CO(N,O),CO(N,1) 

NEXT 

MODE 0: GOSUB 3090 

FOR N=1 TO 98 

L=INT(RND (1) +98) +1 

IF NOT EPZ(L,0)=0 THEN 2120 

EPY(L,0)=N 

NEXT 

EPY, (99,0)=99:EP%(100,0)=100 

N=1 

FOR Y=1 TO 15: 1F INT(Y/2)=Y/2 THEN 2200 ELSE 2190 
FOR X=1 TO 13 STEP 2:GOSUB 2220:NEXT X:GOTO 2210 
FOR X=2 TO 12 STEP 2:GOSUB 2220:NEXT X 

NEXT Y:GOTO 2310 

EIMZ(X,Y,0)=N 

C=49152+ (X-1)*4+(Y-1)*80 

EPZ(N,2)=INT(C0/256) :EPZ2(N,1)=C-EPZ(N,2)*256 
C=(EPZ(N,0)-1)*32+Z 

EPZ(N,4)=INT(0/256) :EP7(N,3)=C-EPZ (N, 4) *256 
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2270 POKE 42836,EP%(N,1):POKE 42837 ,EP7.(N,2) 
2280 POKE 42833,EP%(N,3): POKE 42834 ,EP7% (1,4) 
2290 CALL 42830 


2300 N=N+1: RETURN 
2310 FOR N=0 TO 4 STEP 4 


2320 C=2+3136+N*8: HDEP=INT(C0/256) 1 LDEP= =C-HDEP*256 
2330 EP (99+N/4,3)=LDEP: EPZ (99+N/4,4) =HDEP 

2340 POKE 42833,LDEP:POKE 42834, HDEP 

2350 POKE 42836,160+N:1 POKE 42837, 199 

2360 EP7.(99+N/4,1)=160+N: EPY. (99+N/4 y2)=199 

2370 CALL 42830: NEXT 

2380 ElM/(9,24,0)=99: EIMZ(10. 123,0)=100 

2390 LOCATE 15,15:PEN 152 PRINT o 

2400 CH=REMAIN (0) : CH=REMAIN (1) 

2410 EVERY 100,1 GOSUB 3210 

2420 IF GOB=0 THEN 2430 ELSE AFTER 500,0 GOSUB 3420 
2430 SCORE=0 

2440 IND=1:PEN=15 


2450 X=15:Y=10:DI:LOCATE X,Y:PRINT CHR$(159):E1 

2460 A=JOY (0): 1F INKEY(47)=0 THEN IND=1 

2470 IF INKEY(60)=0 THEN A=REMAIN(0):A=REMAIN(1):GOTO 250 
2480 IF INKEY(18)=0 THEN IND=IND+1 

2490 IF A=0 THEN 2440 

2500 IF A>16 THEN 2650 

2510 EIMZ%(X,Y,1)=0 

2520 IF NOT ElIM%(X,Y,0)=0 THEN 2540 

2530 DI:LOCATE X,Y:PRINT" ":El 

2540 GOSUB 2920 

2550 IF NOT ElMZ%(X,Y,0)=0 THEN GOTO 2580 

2560 DI:LOCATE X,Y:PRINT CHR$(159):E1 

2570 GOTO 2460 

2580 N=EIM%(X,Y,0) 

2590 DI:LOCATE X,Y:PRINT CHR$(159):E1 

2600 IF JOY(O)=0 THEN 2600 

2610 POKE 42833,EP7.(N,3):2POKE 42834,EP%(N,4) 
2620 POKE 42836,EP%(N,1):POKE 42837,EPZ(N,2) 
2630 CALL 42830 

2640 GOTO 2460 

2650 REM 

2660 IF ElMZ%(X,Y,0)=0 "THEN A=A-16 GOTO 2530 
2670 1F Y>15 THEN POKE a tio 

2680 AV=EIMZ(X,Y,0):DI:LOCATE X,Y:PRINTZ 2:El:EIM%(X,Y,0)=0 
2690 A=A-16 

2700 GOSUB 2920 

2710 N=EIMZ%(X,Y,0) 

2720 C=(X-1)*4+(Y-1)*80+49152 

2730 HARR=INT(C/256) : LARR=C-256*HARR 

2740 POKE 42836,LARR:POKE 42837 ,HARR 

2750 POKE 42833,EP%(AV,3)1POKE 42834 ,EP7 (AV, 4) 

2760 CALL 42830 

-2770 ElIMZ%(X,Y,0)=AV:EPZ (AV, 1) =LARR: EPZ (AV, 2) =HARR 
2780 A=JOY(0):1F INKEY(47)=0 THEN IND=1 

2790 IF INKEY(18)=0 THEN IND=IND+1 

2800 IF A=0 OR A=16 THEN 2780 

2810 IF A<16 AND N=0 THEN 2900 

2820 IF A<ló AND N<>0 THEN 2780 
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2830 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 
2990 
3000 
3010 
3O20 
3O3O 
3040 
3050 
3060 
3070 
3080 
3O9O0 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
3280 
3290 
3300 
3310 
3320 
3330 
3340 
3350 
3360 
3370 
3380 


IF NOT N=0 THEN 2850 
DI:¿LOCATE X,Y¿:PRINT" ":El:ElMZ(X,Y,0)=0:GO0TO 2690 
POKE 42836,LARR:POKE 42837 , HARR 
POKE 42833,EP7(N,3):POKE 42834,EP7% (N,4) 
CALL 42830 
EIMZ(X,Y,0)=N 
GOTO 2690 
IF Y>15 THEN GOSUB 3230: IF PEEK(43091)=1 THEN 3300 
GOTO 2540 
DI:IF A=1 THEN Y=Y-1 
IF A=2 THEN Y=Y+1 
IF A=4 THEN X=X-1 
IF A=8 THEN X=X+1 
A=5 THEN Y=Y-1:X=X-1 
IF A=9 THEN Y=Y-1: X=X+1 
A=6 THEN Y=Y+1:X=X-1 
IF A=10 THEN Y=Y+1:X=X+1 
IF X>20 THEN X=20 
IF X<1 THEN X=1 
IF Y>25 THEN Y=25 
IF Y<¿1 THEN Y=1 
IF X>10 AND Y>15 THEN X=10:Y=15 
IF X=HO AND Y=VE THEN GOSUB 3650 


FOR R=1 TO IND: NEXT 

El: RETURN 

DEFP=Z 1 AR=50392 

FOR N=0 TO 9 

FOR M=0 TO 9 

ARR=AR+M+4+N+80 

HDEP= INT (DEP/256) : LDEP=DEP-2536*HDEP 
HARR=INT (ARR/2536) : LARR=ARR-HARR+*256 
POKE 42836,LARR:POKE 42837,HARR 

POKE 42833,LDEP:POKE 42834 ,HDEP 

CALL 42830 

DEP=DEP+32 

NEXT M,N 

RETURN 

SCORE=SCORE-1: IF SCOREX<O THEN SCORE=0 
DI:LOCATE 15,15:PRINT SCORE:El:RETURN 
REM 

POKE 43093,LARR:POKE 43094 ,HARR 
U=(X-1)+10* (Y-16) 2: POKE 43092;U 

CALL 43000 

IF PEEK(43090)=1 THEN SOUND 132,120,20,7 


Y1F SC (U)=0 THEN SCORE=SCORE+10: SC% (U) =1 : PB=PB+1 


RETURN 

REM 

El: A=REMAIN (0) : A=REMAIN (1) :DI 
BORDER O,9*SOUND 133.0.0 

LOCATE 1,1:PRINT"PUZZLE COMPLETO" 
LOCATE 15,15:PRINT" E 

LOCATE 1,3:PRINT"VOS POINTS: "3 SCORE 
LOCATE 1,5:PRINT"OTRA JUGADA?" 
AS$=UPFERES(INKEYS$):1F As=""THEN 3370 
IF As="N"THEN 250 
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3390 
3400 
3410 
3420 
34:30 
3440 
3450 
3460 
3470 
3480 
3490 
3500 
3510 
2u2o 
3530 
3340 
3030 
3360 
3370 
3580 
3390 
3600 
3610 
3620 
3630 
3640 
3650 
3660 
3670 
3680 
3690 
3700 
3710 
3720 
3730 
3740 
3750 
3760 
3770 
3780 
3790 
3800 
3810 
3820 
38:30 
3840 
3850 
3860 
3870 
3880 
3890 
3900 
3910 
3920 
3930 
3940 


IF NOT A*s="0"THEN 3370 
BORDER O 

GOTO 1940 

REM 

SOUND 130,506,-32768,0,3,10 
DI: HO=20*VE=1 

LOCATE HO,VE:PRINT CHR3 (225) 
CH=REMA IN (0) 
TP=INT(RND(TIME) 50) +30 
EVERY TF,O GOSUR 3510 

El: RETURN 

REM 

DI:¿LOCATE HO,VE¿PRINTZ 2 

IF HOzZx13 THEN 3540 


HO=HO-— INT (RNDC(TIME) +3) 2 VE=VE+INT(RND(TIME)*2):GOTO 3550 
HO=HO-—S-+ INT (RND (TIME) +11): VE=VE-4+INT(RND(TIME) +9) 

IF HO<1 THEN HO=1 

IF HO>20 THEN HO=20 

IF VEX<1 THEN VE=1 

IF VE>15 THEN VE=15 

LOCATE HO,VE 


IF EIMZ(HO,VE,0)=0 OR NOT(EIMZ(HO,VE,1)=0) THEN 
PRINT CHR*$(224) :¿ SOUND 129,100,0,0,2 
SCORE=SCORE-10:EIM%(HO,VE,1)=1:El: RETURN 

PRINT CHR$(225) 

El: RETURN 

REM 

CH=REMAIN (0) 

DI2¿LOCATE X,Y:PRINTY" ":HO=0: VE=0 

SOUND 131,0,0,0,1,0,5 
TP=INT(RND (1) *(100-PB)*30)+50 

AFTER TF,O GOSUB 3420 

El: RETURN 

REM 

MODE 2:BORDER O: INK 0,0: INK 1,20 

PRINT"16 CIFRAS NUMERADAS DE O A F APARECERAN "; 
PRINT"EN LO ALTO DE LA PANTALLA" 
PRINT:PRINT"CON AYUDA DE LOS CURSORES, "; 
PRINT"POSICIONA EL ASTERISCO DEBAJO DE LA CIFRA" 
PRINT 

PRINT"DESPUES PRESIONAR ESPACIO PARA MOVER LOS COLORES" 
PRINT:PRINT:PRINT"SI SE DESEAN DOS COLORES POR LAPIZ,"; 
PRINT"FRESIONAR ENTER PARA ACCEDER AL. SEGUNDO COLOR" 
PRINT:PRINT"EN EL TRANSCURSO DEL"; 

PRINT" DIBUJO, PUEDES MODIFICAR LOS COLORES" 
PRINT"FRESIONANDO ESPACIO DESPUES DE P (DE PALETA)" 
PRINT:PRINT 

PRINT"TERMINADA LA SELECCION,PRESIONAR COPY" 
PRINTI¿PRINT" PRESIONAR"; 

PRINT" M PARA MENU,ESPACIO PARA CONTINUAR-----" 

GOSUB 3910:GOTO 250 

REM 

A$=UPPERS(INKEYS):3 1F As=""THEN 3910 

IF As$="M" THEN RETURN 

MODE O:PEN 15: INK 15,24:00(15,0)=24:C0(15,1)=27 

FOR N=0 TO 14:C0(N,0)=0:C0(NM,1)=27: NEXT 


36:30 
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3930 FOR N=0 TO 15 

3960 LOCATE N+1,3 

3970 PRINT HEX3% (NN) : NEXT 

3980 N=1:M=0:3 Q=-1 

3990 LOCATE N,4:PEN 15:PRINT"x" 

4000 AS=INKEY*$: IF Ax=""THEN 4000 

4010 LOCATE N,4:PRINT" " 

4020 AS=ASC(AS$): 1F AS=%EO THEN RETURN 

4030 .1F ASX<>%F2 THEN 4060 

4040 N=N-1:50O=-13 1F N<1 THEN N=1 

4050 GOTO 3990 

4060 IF NOT AS=%F3 THEN 4090 

4070 N=N+1:0O=-1: IF N>16 THEN N=1 

4080 GOTO 3990 

4090 IF AS=kD THEN Q=NOT!Q 

4100 IF NOT AS=%20 THEN 3990 

4110 M=M+1:1F M>26 THEN M=0 

4120 LOCATE 17,3:FEN 1S5:PRINT Mz"" 

4130 INK N-1,M:*+LOCATE N,3:PEN N-1:PRINT HEX3$(N-1) 

4140 CO(N-1,1+0)=1M 

4150 IF Q=-1 THEN INK N-1,M:GOTO 4170 

4160 INK N-1,CO(N-1,0),M 

4170 PEN N-1:LOCATE N,3:FRINT HEX:3* (N-1) 

4180 PEN 15:GOTO 3990 

4190 REM 

4200 N=C0+1:M=0:< O=-1: GOSUB 3990 

4210 LOCATE 20,1:FRINT" "*LOCATE 17,32:PRINT"  " 

4220 RETURN 

4230 END 

4240 REM INSTRUCCIONES 

4250 MODE 2: INK 1,20: INK 0O,O:KORDER O 

4260 PRINT*PRINT:PRINT "Con ayuda del "; 

4270 PRINT "joystick deberas reconstruir un puzzle..." 
4280 PRINT:PRINT:PRINT "Te puedes desplazar en "sx 

4290 PRINT "las 8 direcciones. Una cruz marca tu posicion." 
4300 PRINT:PRINT:PRINT "Disparando te "; 

4310 PRINT CHR*$(34); "llevas" ¿CHR$(34)3 " la pieza contigo” 
4320 PRINT:PRINT:FRINT "Una copia de la imagen completa "; 
4330 PRINT "aparece en la parte posterior izquierda de la " 
4340 PRINT "pantalla. Debes reconstruir"; 

4350 PRINT " el puzzle a la izquierda de esta copia" 

4360 PRINT:PRINT "Si escoges la opcion GO0E, un "; 

-4370 PRINT "pesado animalito vendra de vez en cuando para" 
4380 PRINT "esconder los elementos del"; 

4390 PRINT " puzzle con lo que perderas puntos" 

4400 PRINT:PRINT "Deshazte del bicho con"; 

4410 PRINT " el joystick, simplemente pasando por encima" 
4420 PRINT:FPRINT "El ordenador senala con un pitido "; 
4430 PRINT "cualquier colocacion adecuada de una pieza, "; 
4440 PRINT " y cuando el puzzle esta acabado se acaba la par 
tida" 

4450 PRINT:PRINT "Pulsando Enter se va disminuyendo"; 

4460 PRINT * poco a poco la velocidad de desplazamiento,"; 
4470 PRINT "pulsando espacio se vuelve a la velocidad maxima 


4480 PRINTIPRINT "A —Á " 
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FRINT "pulsa cualquier tecla y 

asf=INKEY+$: IF at="" THEN 4500 

CLS:PRINT:PRINT:FPRINT "Antes de empezar el juego,"; 
PRINT " hay que crear los dibujos que seran "¡CHR+$(34); 
PRINT "desperdigados" 3CHR*$(34) :¿PRINT "por el programa" 
PRINT:PRINT "Estos dibujos pueden guardarse en "; 
FRINT"casete y vueltos a SER llamados posteriormente"; 
PRINT" (SALVAGUARDA Y CARGA)" 

PRINT:PRINT "Se pueden memorizar hasta 4 dibujos" 
PRINT 

PRINT "La paleta de colores debe ser escogida antes"; 
PRINT" de comenzar el dibujo, y puede modificarse"; 
FPRINT "durante el trazado. Es:comun a los 4 dibujos" 


PRINT: 

PRINTIEPRINT "s 

PRINT "Pulsa cualquier tecla —-————-———————- A 
af=INKEY+: IF a$="" THEN 4650 ELSE 250 

REM "Sal vaguarda 

MODE 2:FRINT "Da un nombre a los dibujos (eventualemnet 
INPUT cx 

INPUT "Velocidad de almacenamiento(0/1)"3v 


IF v>1 OR v<0 THEN 4690 

SPEED WRITE y 

CLS 

PRINT"PREPARE EL MAGNETOFONO, DESFUES PRESIONE ESPACIO" 
Cé="!1"+C3 

As=INKEY$: 1F As=""THEN 4750 

IF NOT As$=" "THEN 250 

SAVE C$,B,30000,13000 

CLS:PRINT"OTRA MAS?(S/N)" 

AS=UPFERS(INKEY$) 2: 1F As=""THEN 4790 

IF As="0" THEN 4720 

GOTO 250 

REM 

MODE 2 

PRINT"METE EL NOMBRE DE LOS DIBUJOS (EVENTUALMENTE) " 
INPUT C4:C$=" 1 "4+C$ 

CLS 


PRINT"PREPARE EL MAGNETOFONO DESPUES DE PRESIONAR ESPAC 


A$=INKEY+: 1F As=""THEN 4880 

IF NOT As$=" "THEN 250 

LOAD C$,30000 

FOR N=0 TO 15 

CO (N,0) =PEEK (42860+N2) :CO(N, 1) =PEEK (42861+N+*2): NEXT 
GOTO 250 

REM 

DATA 49152,49192,50352,50392 

RESTORE 4950 

FOR N=0 TO 15: 1F CO(N,1)=27 THEN 4990 
INK N,CO(N,0),CO(N,1):GOTO 5000 

INK N,CO(N,O) 

NEXT 

MODE O:FOR PTE=0 TO 3 
DEP=30000+PTE*3200 


SO30 
5040 
5050 
5060 
5070 
5080 
5090 
3100 
3110 
s120 
Ss1:30 
5140 
5150 
3160 
3170 
5180 
3190 
S200 
s210 
220 
SEO 
53240 
52530 
3260 
5270 
3280 
5390 
300 
5310 
33zO 
3330 
5340 
5330 
5360 
3370 
5380 
5390 
5400 
5410 
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READ AR: GOSUB 3100 

NEXT PTE 

PEN 15 

LOCATE 5,11:PRINT"1"*LOCATE ioyilirkinT02" 
LOCATE 5,15: PRINT"3">LOCATE 15,135:PRINT"4" 
LOCATE 1,13:PRINT"FREsSiUNA UNA TECLA" 
AF=INKEY$: 1F As=""THE E peleo 

ELSE 250 HEN 3090 ELSE 250 
di 1,20: INK 0,0: BORDER 0 
"Re ¿PRINT:PRINT" Ma 

PRINT" DEL Jo Ys TICA PUEDEN RAPLAZAR EL CURSOR" 
PRINT"EN EL INTERIOR DE"; 

ERINT" UNA VENTANA DE 80X80 FUNTOS,Y EN 8 DIRECCIONES" 
PRINT:3FPRINT"EL HACER FUEGO DEJA UNA MARCA" 

FRINT 

PRINT"PARA TENER ACCESO ALOS COMANDOS,PULSA ESPACIO" 
PRINT:PRINT"LISTA DE COMANDOS: " 

PRINT 

FRINT"-V:FRENA O ACELERA EL DESPLAZAMIENTO" 
PRINT"-P3PERMITE MODIFICAR LA PALETA DE COLORES" 
PRINT"-RIRELLENA UNA SUPERFICIE CERRADA CON UN COLOR" 
PRINT" (SITUA AL CURSOR EN LO "; 
PRINT"MAS ALTO DE LA SUPERFICIE)" 

PRINT:PRINT"-E: CAMBIA EL COLOR DE UN *"; 

PRINT" RECINTO(SITUAR EL CURSOR SOBRE DICHO RECINTO)" 
PRINT"-C:PERMITE CAMBIAR DE BOLI" 

PRINT"-F:CAMBIA El. COLOR DE FONDO."; 

PRINT"SITUAR EL CURSOR SOBRE EL COLOR AREEMPLAZAR" 
PRINT:PRINT"-PARA MEMORIZAR"; 

PRINT" UN DIRUJO PRESIONAR M SIN PULSAR ESPACIO" 

PRINT" (PUEDE MEMORIZAR 4DIBUJOS)" 

PRINT:PRINT" -—PULSA UNA TECLA-- ” 
AF=INKEY+: IF As=""THEN 5350 

CLS:PRINT3PRINT:PRINT"-LOS COMANDOS R,E,F PUEDEN SER "; 
PRINT" INTERRUMPIDOS EN TODO MOMENTO FULSANDO ESPACIO" 
PRINT:PRINT"PRESIONA"; 

PRINT" M PARA EL MENU,O SOBRE ESPACIO FARA CONTINUAR" 
ASS=UPPERS(INKEY$): 1F Af=""THEN 5400 

IF As$="M" THEN 250 ELSE 390 


CIRCULOS Y OVALOS 


El Amstrad incluye una versión de BASIC carente de ins- 
trucciones para el trazado de círculos o de óvalos. Esta 
deficiencia se puede salvar mediante pequeñas subrutinas, 
adecuadamente incluidas en los programas que lo precisen. 


El listado adjunto incluye varias posibilidades de este tipo: 
dibujo de círculos, de circunferencias y de óvalos. Se ha 
incluido asimismo una pequeña demostración gráfica que genera 
circunferencias de radio, centro y color aleatorio de forma 
constante. 
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La (inclusión de estas subrutinas en programas 
dibujar este tipo de figuras sólo requiere un 
en los datos: radio, posición del centro y 
trazado. : 


10 MODE 1:LOCATE 1,1:PRINT "1: CIRCULOS" 

20 LOCATE 1,3: PRINT "2: OVALOS" 

3O LOCATE 1,5:PRINT "3: CIRCULOS SOLIDOS" 

40 LOCATE 1,7:PRINT "4: CIRCULOS CONCENTRICOS" 
S0 LOCATE 1,9:PRINT "S: CIRCULOS POR PUNTOS" 
60 LOCATE 1,11:PRINT "6: ACABAR" 


que precisen 
pequeño cambio 
elo color del 


70 LOCATE 1,15: INPUT " ",A:IF A>6 OR A<1 THEN 10 


80 ON A GOSUB 100,280,370,520,610,680 

90 GOTO 10 

100 REM cambiar circulos 

110 MODE O:CLS:CLG 

120 FOR n=1 TO 15: INK n, INT(RND*27) ¿NEXT n 


130 x=INT(RND*639) : y=INT (RND*399) :r=INT(RND+*80) 
140 ci=INT (RND*15) 


150 BORDER INT(RND*27) 

160 1F r=0 THEN 120 

170 s=r*r 

180 r=r-1 

190 IF r=0 THEN 120 

200 2=SOR (s—r+r) 

210 l=z+z 

220 sl=x-z 

230 IF s1<0 THEN 1l=1+8s1:51=0 
240 PLOT sl,y+r,ci2zDRAWR 1,0,ci 
250 IF (y-r)<0 THEN 180 


260 PLOT sl,y-r,cizDRAWR l,0,ci 
270 GOTO 180 


280 REM ovalos 

290 MODE 1:CLS:CLG 

300 DEG 

310 x=320: y=200:5r=50 

320 ORIGIN x,y 

330 FOR a=1 TO 360 

340 PLOT r*COS(a) ,r*2x*SIN(a) 
3590 NEXT a 

360 RETURN 

370 REM circulos solidos 
380 MODE 1:CLS:CLG 

390 x=320: y=200: s=50 

400 1F s=0 THEN RETURN 
410 ruxs5%*s 

420 s=s5-1 

430 IF s=0 THEN RETURN 
440 2=SQR (r-s*s) 

450 l=2+z 

460 sl=x-z 

470 IF s1<0 THEN 1l=1+s1:2¿51=0 
480 PLOT sl,y+s:DRAWR 1,0 
490 IF y-sío THEN 420 

300 PLOT sl,y-s:DRAWR 1,0 
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310 GOTO 420 

520 REM circulos concentricos 
330 MODE 1:CLS:CLG 

340 r=100:r2=50:x=320: y=200 
550 DEG ; 

360 ORIGIN x,y 

570 FOR a=1 TO 360 

380 PLOT r*COS(a),r*SIN(a) 
3590 PLOT r2*C0S(a),r2*SIN(a) 
600 NEXT a: RETURN 

610 REM circulos 

620 MODE 1:CLS:CLS 

630 r=100:x=320: y=200 

640 DRIGIN xy 

630 FOR a=1 TO 360 

660 PLOT r*COS(a),r*SIN(a) 
670 NEXT a 

680 RETURN 


La ejecución de este programa requiere el uso de una unidad 
de disco. Es una buena ilustración de los modos de utiliza- 
ción de los ficheros con el Amstrad, añadiendo las posibili- 
dades gráficas de este ordenador. 


Elo fin último de esta utilidad es la representación de esta- 
disticas mediante el convenio de barras de rea proporcional 
al porcentaje o valor representado. 


Una línea señala el valor medio de todos los valores  intro- 
ducidos. Al comenzar la ejecución se deben introducir los 
diversos valores a representar. Una vez finalizada la entrada 
de datos se debe pulsar dos veces consecutivas la tecla "ESC" 
para que el ordenador cierre el fichero de datos y comience 
á representar el gráfico con las estadisticas. El fichero de 
datos creado se llema LISTA.DAT 


La mayor utilidad de este programa se obtiene de utilizar un 
fichero de datos ya creado para representar datos obtenidos 
mediante otros programas. 


10 MINI=1E+35 

20 MAXI=1E-35 

30 N=0 

40 OFPENOUT "lista" 

50 ON BREAK GOSUB 140 

60 INPUT " ",a 

70 1F A>MAXI THEN MAXI=A 
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80 IF A<MINI THEN MINI=A 
90 MEDIA=MEDIA+A 

100 N=N+1 

110 ON BREAK STOP 

120 WRITE +$9,a 

130 GOTO S50 

140 MEDIA=MEDIA/N 

150 CLOSEOUT 

160 OPENIN "lista" 

170 WHILE NOT EOF 

180 INPUT $+9,a 

190 WEND 

¿00 CLOSEIN 

210 IF n>630 THEN n=630 
220 incx=630/n 

230 incy=235/ (ABS (maxi-mini)) 
240 CLS 

250 INK 0,11 

260 PEN 2 

270 MODE i 

280 PLOT 10,20 

290 DRAW 10,490 

300 PLOT 10,20 

310 DRAW 640,20 

320 ON BREAK STOP 

330 OPENIN "lista" 

340 FOR p=0 TO n-1 

350 GOSUB 420 

360 NEXT p 

370 CLOSEIN 

380 PLOT 10,255 

390 DRAW 640,235 

400 LOCATE 1,1 

410 END 

420 INPUT $9,a 

430 TIN=1+P MOD 3 

440 PLOT 10+incx*p,20 
450 DRAW 1O+incx*p, (a-media)*incy+255 
460 DRAW 9+incx*(p+1),255+(a-media)*incy 
470 DRAW 9+incx*(p+1),20 
480 MOVE 10+incx*(p+0.5),22 
490 FILL TIN 

500 IF n>9 GOTO 540 

510 c=(ló6+incx*p)/16 

520 LOCATE c,25 

530 PRINT USING "$*.%"za 
540 /. RETURN 
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Un ordenador puede convertirse facilmente en un pequeño 
órgano electrónico. Este programa es una forma de llevarlo a 
cabo. 


Una vez puesto en marcha, la pantalla se convierte en un 
pentagrama. Las teclas del 1 al 9 se corresponden con las 
notas de la escala musical. Para "tocar" este instrumento se 
pulsan estas teclas como si se tratase de un piano, sólo que 
la emisión del sonido correspondiente viene acompañada de una 
impresión del nombre de la nota en la parte del pentagrama 
que le corresponde. 


Sin más que pulsar la tecla "C" el programa repite la  se- 
cuencia de notas pulsadas, pudiendose almacenar hasta un 
total de 1000 notas consecutivas. Ello permite utilizar el 
ordenador para componer melodías y luego almacenarlas, pi 
diendo más tarde almacenar el resultado en otros programas. 


Cuando se aprieta la barra espaciadora el ordenador ejecuta 
el "Himo de la Alegría" de Beethoven. 


Aunque el número de notas que se pueden almacenar eS, COMO 
máximo de 1000, éste valor puede cambiarse modificando lige- 
ramente el programa: es suficiente con redimensionar los 
vectores N(1000) y AF (1000) con un nuevo índice. 


Fara utilizar el programa no hay que saber nada de música, e 
incluso puede ser una manera bastante simple y entretenida de 
aprender un poco de solfeo. 


Las notas, que van del DO al Si, son suficientes para reali- 
zar la mayoría de las composiciones que suelen interpretar 
los ordenadores de este tipo. 


El usuario puede pragramar, además, el número del canal por 
el que se emiten los sonidos, asi como el tipo de instrumento 
simulado (hasta 9). Para ello el programa interroga al usua- 
rio sobre estos parametros antes de pasar a visualizar el 
pentagrama. 


10 REM PIANO ORGANO 

20 GOSUB 750 

30 GOSUB 990 

40 GOSUB 1090 

50 CLEAR:DIM nt(1000),a$(1000) 
60 INPUT "CANAL ";¿S 

70 INPUT "INSTRUMENTO (1-7)"30 
80 CLS 

90 FOR N=1 TO 160 STEP 32 

100 PLOT 0,360-N:DRAW 650,360-N 
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110 NEXT N 

120 FOR N=1 TO 8 

130 FOR B=1 TO 400:NEXT B 

140 LOCATE 5*N,14-N:PRINT CHR$(230) 

150 NEXT ON 

160 FOR I=1 TO 1000 

170 A$(1)=INKEYS$ 

180 IF A$(1)="C" THEN GOSUB 480 

190 COMP=COMP+1 

200 IF A$(1)=" " THEN GOSUB 590 

210 ON VAL (A$(1))+1 GOSUB 1170,230,280,330,380,430,480,530 
220 NEXT 1 

230 LOCATE 5,14:PRINT "DO" 

240 FOR T=1 TO 300:NEXT T 

250 SOUND S,30*2""0,30,7 

260 LOCATE 5,14: PRINT "  " 

270 RETURN 

280 LOCATE 10,14:PRINT "RE" 

290 FOR T=1 TO 300:NEXT T 

300 SOUND S,27*2"0,30,7 

310 LOCATE 10,14:PRINT "  " 

320 RETURN 

330 LOCATE 15,14:PRINT "MI" 

340 FOR T=1 TO 300:NEXT T 

350 SOUND 5,24*2"0,30,7 

360 LOCATE 15,14: PRINT "  " 

370 RETURN 

380 LOCATE 20,14:PRINT "FA" 

390 FOR T=1 TO 300:NEXT T 

400 SOUND 5,22*2"0,30,7 

410 LOCATE 20,14: PRINT "  " 

420 RETURN 

430 LOCATE 25,14:PRINT "SOL" 

440 FOR T=1 TO 300:NEXT T 
450 SOUND S,20*2"0,30,7 
460 LOCATE 25,14: PRINT "  ' 
470 RETURN 

480 LOCATE 30,14:PRINT "LA" 
490 FOR T=1 TO 300:NEXT T 
500 SOUND S5,18*2"0,30,7 

- 510 LOCATE 30,14: PRINT "  " 
520 RETURN 

530 LOCATE 35,14: PRINT "SI" 
540 FOR T=1 TO 300:NEXT T 
550 SOUND S,16*2"0,30,7 
560 LOCATE 35,14: PRINT " " 
570 RETURN 

580 FOR T=1 TO 300: NEXT T 
590 RESTORE 660 

600 FOR I=1 TO 31 

610 READ A 

620 ON A GOSUB 230,280,330,380,430,480,530 
630 IF A=0 THEN FOR T=1 TO 330:NEXT T 

640 NEXT 1 

650 RETURN 

660 DATA 3,3,4,5,5,4,3,2,1,1,2,3,3,2,2,0 


670 
680 
690 
700 
710 
720 
730 
740 
730 
760 
770 
780 
790 
800 
gio 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
9530 
960 
970 
980 
990 
1000 
1010 
1020 
10:30 
1040 
1050 
EE 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
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DATA 3,3,4,5,5,4,3,2,1,1,2,3,2,1,2 
FOR B=1 TO COMP 
N(B)=VAL (A$(B)) 
NEXT B 
FOR C=1 TO COMP 
ON N(C) GOSUB 230,280,330,380,430,480,530 
IF N(C)=0 THEN GOSUB 1170 
NEXT C: RETURN 
PAPER 13: BORDER 24: CLS:PEN O 
PLOT 10,10,0:DRAW 10,390: DRAW 630,390 
DRAW 630,10:DRAW 10,10:PLOT 20,20 
DRAW 20,380: DRAW 620,380: DRAW 620,20 
DRAW 20,20:PLOT 40,80: DRAW 40,340: DRAW 600,340 
DRAW 600,80: DRAW 40,80: PLOT 40,270 
DRAW 600,270:PLOT 50,90 
DRAW 50,250: DRAW 590,250: DRAW 590,90: DRAW 50,90 
FOR I=1 TO 12 
PLOT 50+1*45,90: DRAW 50+1+*45,250 
NEXT 1 
FOR I=1460 TO 250:PLOT 80,I:DRAW 110,I:NEXT 1 
FOR I=160 TO 250:PLOT 125,1:DRAW 155,1: NEXT 
FOR I=160 TO 250:PLOT 215,1:DRAW 245,I:NEXT . 
FOR I=160 TO 250:PLOT 260,1: DRAW 290,1:NEXT 
FOR I=160 TO 250:PLOT 305,1:DRAW 335,1: NEXT 
FOR I=160 TO 250:PLOT 395,1: DRAW 425,1: NEXT 
FOR I=160 TO 250:PLOT 440,1:DRAW 470,1:NEXT 
FOR I=160 TO 250:PLOT 530,1:DRAW 560,1: NEXT 
FOR I=160 TO 250:PLOT 590,I:DRAW 575 ,1:NEXT 1 
LOCATE 5,6:PRINT "ORGANO MUSICAL" 
LOCATE 13,22:PRINT " PULSA UNA TECLA " 
IF INKEY$="" THEN GOTO 970 
RETURN 
CLS:LOCATE 12,3:PRINT "BEETHOVEN COMPONE " 
LOCATE 5,6:PRINT " ESTE PROGRAMA OFRECE UNA AYUDA "; 
PRINT " SENCILLA AL USO DE UN PIANO ORGANO. " 
LOCATE 5,10:PRINT "EL PROGRAMA OFRECE UNA ESCALA DE"; 
PRINT "NOTAS, OMITIENDO LA NOTA DO FINAL. "y 
PRINT "PUEDES VOLVER A ESCUCHAR TU COMPOSICION "; 


A A A HH A 


PRINT "0 BIEN DISFRUTAR OYENDO LA NOVENA SIN- FONIA DE 


ETHOVEN" 

LOCATE 10,24:PRINT " PULSA UNA TECLA" 
IF INKEY$="" THEN 1070 

RETURN 

CLS 

PRINT "BARRA ESPACIADORA= NOVENA SINFONIA " 
PRINT "C= REPITE LO TOCADO" 

PRINT "O= PAUSA" 

PRINT "PULSA NUMEROS PARA NOTAS (1-7)" 
PRINT:PRINT "PULSA UNA TECLA" 

IF INKEY$="" THEN 1150 

RETURN 

FOR T=1 TO 330:NEXT T23RETURN. 
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MELODIAS 


Este programa convierte al ordenador en un organillo elec- 
trónico. 


Una vez que se carga y se ejecuta un RUN, aparece en pantalla 
un menú con las canciones disponibles. Seleccionando el 
número adecuado suena la melodía escogida. 


Las canciones están almacenadas en las distintas líneas DATA 
del programa. Se han incluido unicamente cinco composiciones 
diferentes y muy populares. El oido y la paciencia del  pro- 
gramador pueden servir para aumentar el número de opciones 
disponibles. Fara ello sólo hay que reproducir las lineas de 
1000 a 1050. De la 1080 a la 1150 se almacenan los datos 
correspondientes a las notas de la canción escogida. La línea 
1010 debe variarse, asignando a T el valor correspondiente al 
tempo de la melodía. En la linea 1030 hay que poner FOR  X=1 
to A, donde A debe ser el número de notas incluidas en las 
instrucciones DATA. 


10 CLS:MODE 2 

20 PRINT TAB (25) ¡STRINGS$(19,"+x") 

3O PRINT TAB(26), " CANCIONES" 

40 PRINT TAB(25) ,STRINGS$ (19,"+x*") 

S0 PRINT:PRINT:PRINT:PRINT:PRINT 

60 PRINT TAB(15) "Para elegir la cancion se debe pulsar" 
70 PRINT TAB(15) "el numero correspondiente" 

80 PRINTS<PRINT:PRINT:PRINT 

90 PRINT TAB(25),"1.- LA TARARA." 

100 PRINT TAB(253),"2.- A COGER EL TREBOLE. " 

110 PRINT TAB(25),"3.- A LA MAR FUI POR NARANJAS. " 

120 PRINT TAB(25),"4.- SOY DE SANTURCE. " 

130 PRINT TAB(25),"5.- A MI ME GUSTA LA GAITA." 

140 N$=INKEYS$: IF Né$="" THEN 140 

150 N=VAL (N3$) 2: IF N>6 OR N<1 THEN 140 

160 ON N GOSUBR 180,330,500,690,820 

170 GOTO 140 

180 T=2 

190 RESTORE 250 

200 FOR X=1 TO 53 

210 READ N,D 

220 SOUND 1,N,D+*T,15 

230 NEXT X 

240 RETURN 

250 DATA 106,10,0,1,106,10,0,1,106,10,119,10,95,10,106,10 
260 DATA 119,10,127,10,119,30,127,10,106,10,119,10,127,10 
270 DATA 142,10,127,30,142,10,119,10,127,10,142,10,159,10 
280 DATA 142,30,169,10,213,10,0,1,213,10,0,1,213,10,0,1 
290 DATA 213,10,159,20,142,20,127,20,142,10,159,10,142,20 
300 DATA 169,20,213,20,0,1,213,10,0,1,213,10,159,30,142,10 
310 DATA 127,10,119,10,106,10,95,10,106,20,169,20,1539,40 
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320 


350 
360 


380 


830 


870 


DATA 0,60 
T=3 
RESTORE 400 


FOR X=1 TO 68 

READ N,D 

SOUND 1,N,Dx*T,15 

NEXT X 

RETURN 

DATA 53,15,239,5,213,10,190,10,0,1,190,15,213,5 
DATA 253,10,213,10,0,1,213,15,239,5,284,10,239,10 
DATA 190,10,213,10,0,1,213,20,253,15,239,5,213,10 
DATA 190,10,0,1,190,15,213,5,253,10,213,10,0,1 

DATA 213,15,239,5,284,10,239,10,253,20,0,15 

DATA 253,15,239,5,213,10,190,10,0,1,190,15,213,5 
DATA 253,10,213,10,0,1,213,15,239,5,284,10,239,10 
DATA 190,10,213,10,0,1,213,20,253,15,239,5,213,10 
DATA 190,10,0,1,190,15,213,5,253,10,213,10,0,1 

DATA 213,15,239,5,284,10,239,15,253,30,0,60 

T=1.4 

RESTORE 570 

FOR X=1 TO 77 

READ N,D . 

SOUND 1,N,Dx*T,15 

NEXT X 

RETURN 

DATA 159,20,142,20,127,20,119,20,106,60,119,20,95,40 
DATA 106,40,0,1,106,20,0,1,106,20,0,1,106,20,0,1,106,20 
DATA 119,60,127,20,142,40,159,60,142,20 

DATA 127,20,119,20,106,60,119,20 

DATA 95,40,106,40,0,1,106,20 

DATA 0,1,160,20,0,1,106,20,0,1,106,20,119,60,127,20 
DATA 42,40,159,40,142,20,0,1,142,20,0,1,142,20,159,20 
DATA 179,80,142,20,0,1,142,20,0,1,142,20,127,20 
DATA 119,60,127,20,142,40,159,40,142,20,0,1,142,20 
DATA 0,1,142,20,159,20,179,80,142,20,0,1,142,20 


DATA 0,1,142,20,127,20,119,60,127,20,106,20,119,20 


DATA 127,20,142,20,159,80,0,60 

RESTORE 760 

Tm1.5 

FOR M=1 TO 33 

READ N,D 

SOUND 1,N,Dx*T,15 

NEXT M 

RETURN 

DATA 119,60,106,40,119,20,127,20,142,100 
DATA 119,60,95,40,106,20,119,20,127,100 
DATA 95,20,0,1,95,20,0,1,95,20,179,20 
DATA 0,5,95,20,106,20,119,20,106,20,95,20 
DATA 0,5,106,20,119,20,127,20,119,20 

DATA 126,20,0,5,119,20,127,20,159,60,0,60 
RESTORE 890 

T=1.5 

FOR M=1 TO 48 

READ N,D 

SOUND 1,N,D*T,15 

NEXT M 


87 
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RETURN 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


60,20,0,1,60,20,0,1,60,20,0,1,60,20,63,20,60,20 
53,40,63,20,80,20,63,20,0,1,63,20,60,40,71,20 
89,20,71,20,0,1,71,20,63,40,80,60,71,20,0,1 
71,20,0,1,71,20,0,1,71,20,0,1,71,20,0,1,71,20 
63,40,80,20,95,20,80,20,0,1,80,20,71,40,89,20 
106,20,89,20,0,1,89,20,80,40,95,60 
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MONITOR 

No es habitual encontrar un programa monitor realizado en 
BASIC. Este que se presenta aquí es relativamente simple, 
aunque permite de una forma sencilla, y guiada por menús, 
acceder a casi todas las utilidades propias de este tipo de 
aplicaciones. 


Un programa monitor permite la visualización de los registros 
del microprocesador (en este caso el 2-80), de forma que se 
pueda comprobar rapidamente el comportamiento de un programa 
escrito en ensamblador O directamente en código máquina. 
También se puede visualizar los contenidos de la memoria, 
para lo cual hay que dar al ordenador la dirección. de la 
primera posición que se desea ver. Fulsando ENTER se incre- 
menta en una unidad el valor de esta dirección, y pulsando la 
tecla "2" del keypad numérico se decrementa, también en una 
unidad. 


Otra de las posibilidades admitidas por el programa es la 
modificación de la memoria, siempre, claro está, que se trate 
de posiciones de la RÁM, con lo que se puede emplear el 
monitor para cargar programas en código máquina. de forma más 
sencilla que mediante las habituales sentencias FOKE. 


El programa pone de manifiesto las posibilidades, nada  des- 
preciables del BASIC,  —aungue para aplicaciones algo sofisti- 
cadas en las que se juegue con las interrupciones y los 
puertos de entrada/salida es preferible optar por un monitor 
más perfeccionado. 


10 CLS 

20 WINDOW +0,1,40,1,19 

30 WINDOW +1,1,40,20,35 

40 FOR POINTER=%*ABCO TO 2ABDF:READ A2POKE POINTER, Az NEXT 
50 DATA %ES,2%F5,LE1,£22,REO,RAB,+E1, RED 

60 DATA 2:43,%E2,%AB,4ED,L53,%E4,2AB,22 

70 DATA +E6,%MB,2DD,2:22,2E8,2%AB,4FD,k22 

80 DATA KEA,AB,LED,273,2EC, LAB, 4El,eC09 

90 CLS +1:LOCATE $1,1,1:PRINT +1, "COMMAND —(0)UERY "y 
92 PRINT $1,"MEMORY: (E)DIT MEMORY" 

93 PRINT $1," (B)REAKPOINT SET2 (G)OTO":FRINT Hi: 
94 PRINT $1," (L)OAD CODE: (S) AVE CODE 
100 INPUT +1,"COMMAND ? ",COMMANDE 

110 1F COMMAND$="0" THEN 130 

111 IF COMMAND$="E" THEN 190 

112 IF COMMANDS$="E" THEN 250 

113 1F COMMANDS="G" THEN 310 

114 1F COMMANDS$="L" THEN 390 

115 1F COMMAND+="S" THEN 420 

120 GOTO 90 

130 REM 


UTILIDADES 


140 
150 
155 


156 


CLS +1: GOSUE 470 

EYTE. COUNT=0:PRINT 41,HEX*+ (ADDRESS)53" "3 

WHILE EYTE. COUNT<8 

IF PEEKCADDRESS+BYTE. COUNT)<16 THEN PFRINT +1,"0%; 

PRINT +1, HEX3* (PEEK (CADORESS+EYTE. COUNTI)35% "5 

BYTE. COUNT=EY TE. COUNT+1:WEND 

IF” TNKEY(18)=-1 AND INKEY (47)=-1 THEN 170 

IF INKEY(47)=0 THEN PRINT 41: ADDRESS=ADDRESS+8: GOTO 150 


INFUT $1,A3%:1F Af="" THEN 90 ELSE 90 

REM 

CLS *+1:GOSUB 470 

FRINT +41, HEX3* (ADDRESS). "¡HEXS$ (PEEECADDRESS))3" "3 
INFUT 41,DAT+: IF DATF="0" THEN 90 

IF DAT*="" THEN ADDRESS=ADDRESS+1:GOTO 210 ELSE 220 


IF DAT$=""" THEN ADDRESS=ADDRESS-1:G0TO 210 

i=0: WHILE NOT(UPPERS(LEFTS$(DATS$,1))=HEX+$(1)) AND I<16 
I=I+1:WEND: IF 115 THEN 210 ELSE DAT=I*16 

I=0: WHILE UPPERS(RIGHTS$(DAT+$,1))<>HEX$(1) AND I<16 
I=sI+1:WEND: IF 1>15 THEN 210 

DAT=DAT+1:POKE ADDRESS,DAT: ADDRESS=ADDRESS+1:GOTO 210 
REM 

CLS 41 INFUT $1, "(S)ET OR (C)LEAR ",BREAKS 

IF BREAK$="S" THEN GOSUB 470: GOTO 270 

IF BREAK$="C" THEN 300 ELSE 260 

BREAK. ADDRESS=ADDRESS 

SAVED. DATA=PEEK (BREAK. ADDRESS): POKE BREAK. ADDRESS, eF7 
POKE £30,2C031POKE £31,2£C01POKE £32,2AB 

GOTO 90 

POKE BREAK. ADDRESS,SAVED. DATA: GOTO 90 

REM 

CLS $1: GOSUB 470 

CALL ADDRESS 

REG. STORE=%ABEO:CLS +1 

PRINT $1, "AF BC DE HL IX 1IY SP. PC" 
FOR I=REG.STORE TO REG.STORE+13 STEP 2:A=PEEK(1+1) 
B=PEEK (1): 1F A<16 THEN PRINT 41, "0"; 

PRINT $1,HEX$(0)5:1F B<16 THEN PRINT $1,"0"; 

PRINT H1,HEX$(B)3" "3:NEXT 

PRINT $1, "<HIT ANY KEY WHEN READY>"3 

A$=INKEVYS: 1F Aj="" THEN 380 ELSE 90 

REM 

CLS $12 INPUT $1, "TITLE ? ",TITLES 

WINDOW SWAP 0,1:LOAD TITLES: WINDOW SWPA 0,1:GOTO 90 
REM 

CLS +1:GOSUB 470: INPUT $1, "LENGTH ? ",LENGTH 

INPUT 41, "ENTRY POINT ? ",ENTRY 

INPUT 41, "TITTLE ? ",TITLES 

WINDOW SWAP 0,1 

SAVE TITLE+S,B,ADDRESS,LENGTH,ENTRY: WINDOW SWAF 0,1 
GOTO 90 

INPUT 41, "START ADDRESS 7? ",ADDRESS 

RETURN 

LOCATE 1,18 
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Una agenda es una aplicación muy común para  ordendores 
doméstico. La que aquí se presenta permite almacenar y 
tratar hasta un total de 250 fichas diferentes. 


Para la búsqueda de una determinada ficha se puede recurrir a 
cual quier criterio: por nombre (0'- por un conjunto de 
caracteres cualesquiera. 


Toda la aplicación se desarrolla sobre un menú principal que 
permite la creación, búsqueda y modificación o borrado de una 
ticha, el. listado y la salvaguarda de todo el fichero en 
memoria. 


Las primeras líneas del programa se encargan (de leer el 
fichero de datos "DIRECCIONES". De no haber sido creado éste, 
lo. que ocurre al menos la primera vez que se ejecurta el 
programa, éste debe lanzarse con una orden RUN 80. 


10 DIM FF(250) + INE 3,7: INE 0,0: BORDER Os 1Nk<K 2,10 

20 CLS: INFUT "NOMBRE DEL FICHEROS ",n+* 

SO CLS:LOCATE 3,12:FRINT "CARGANDO LOS DATOS" 

40 OPENIN n:+ 

50 INFUT $9,X 

60 FOR N=1 TO X-1sLINE INEUT $+9,F3E0w:5NEXT ON 

70 CLOSETIN 

80 CLS:+REM ON BREAE GOSUB 680 

90 1F X=O THEN X=1:DIM FR*(250) 

100 LOCATE 114,5:FEN Z¿PRINT "CARNET DE DIRECCIONES" 

110 LOCATE 141,72 ERINT O 00006066 6 6 ER! 

120 LOCATE > 12: PRINT "E $ Busqueda de una ficha" 

130 LOCATE 1,14:3FRINT "A > Apertura de una ficha" 

140 LOCATE 1,16: PRINT "M $ Modificacion de una ficha" 

130 LOCATE 1,18:FRINT "Co Copia de una ficha por impresora 
160 LOCATE Z0sPRINT "L + Listado de las fichas" 

170 LOCATE o eeINT "5 > GBalvar el fichero en disco O case 
te" 

1890 z=INKEYEs 1F z2="" THEN 180 

190 1F UPFERS(24)="B" THEN 390 

200 1F UPFERS(23)="A4" THEN 260 

210 1F UPRERE (24)="C0" THEN 690 

220 1F UFPPERE (2 ="S5" THEN 040 

20 1F UPFERE (2) )="M" THEN 1310 

240 1 UFFERE (24)="L" THEN 980 

2590 GOTO 100 

260 CELS 

270 1 :<=251 THEN FRINT "No queda sitio en memoria": GOSUE £7 
0: GOTO 80 

ZO PRINTS A apertura de una +Hicha———— A 

290 LOCATE 1,7:FRINT "Cuidado ', el nombre tiene que darse e 
n mayusculas" 


61 
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300 LOCATE 1,11:3PRINT "Fara parar teclear “.'” 

310 LOCATE 14,4:FRINT "FICHA No"ssFEN 1sFRINT x:FEN 3 

320 WINDOW +1,1,40,17,24 

330 CLS H1I2LINE INFUT +1, O% 

340 1F 0%="," THEN 80 

350 1F 0O%="" OR LEN (0%)<5 THEN 310 

360 FF(X)=03%: X=X+1 

370 1F X=251 THEN LOCATE 1,11:FRINT "ULTIMA FICHA ACEFTADA 


NO HAY MAS SITIO EN MEMORIA "* CALL *BRB18:GOTO 80 
280 GOTO 310 
390 A=O»CLsS:PRINT ".uncnonnoo no. BUSQUEDA DE FiCHA...ooooo. ...” 


400 LOCATE 1,S5:PRINT "N > Por el nombre": PRINT:FRINT "C > Fo 

r criterio" 

410 Z=INKEYE: 1F Z="" THEN 410 

420 1F UPFERS(Z3)="N" THEN 450 

430 IF UPPERF(Z3$)="C" THEN 580 

440 GOTO 410 

430. CLS: C=0 

460 PRINT "NOMBRE DE LA FICHA? "¿FRINT 

470 PRINT "(el nombre puede estar incompleto)” 

480 LOCATE 1,6: INFUT B+:21F Es="" THEN 480 

490 AF=UPFFERS (B34) 

500 CLS: I=0 

310 FOR N=1 TO X-—1 

320 1 AF=LEFTS (FEF (NN) ,LEN (A%)) THEN LET I=1:PRINT H4C,F3(N): 

¿PRINT OC 

330 NEXT ON 

340 1F I=0 THEN GOSUB 660 

35390 1 1x0 AND A<+0 THEN 770 

360 1F C=8 THEN 80 

3570 CALL $BR18:GOTO 80 

3580 CLS:PRINT "Introduce el criterio de busqueda":PRINT:PRIN 

TIPRINT "(al menos dos caracteres) "¿PRINT:FPRINT 

390 I=0: INPUT QO*+: IF LEN(O0$)<2 THEN 590 

600 CLS 

610 FOR N=i TO X-1 

620 IF INSTR(FS(N),0%) THEN I=1:PRINT +C,F*(N):FPRINT +*C:FRIN 

TOR+wHC 

630 NEXT ON 

640 1F 1I=0 THEN GOSUB 660 

650 CALL *£BB18:GOTO 80 

660 LOCATE 14,13:FEN 1:PRINT "FICHA DESCONOCIDA": PEN 3 

670 FOR T=1 TO 2000: NEXT T 

680 RETURN 

690 CLS:PRINTO "+++ 1IMPRESION DE LA FICHA+d+444 44 d+" 

700 LOCATE 1,15:FRINT "Fara una disposicion particular 
teclea F sino enter" 

710 Z=INKEYE: 1F Zé="" THEN 710 

20 IF UPFERS(Z$)="F" THEN A=1:GOTO 450 
730 LOCATE 1,15:PRINT "NOMBRE DE LA FICHA? 


”" 


740 LOCATE 1,10:FEN 2:PRINT "Enchutfa la impresora ":¡FEN 
730 WIDTH 40 

760 LOCATE 1,18: C=8:A=0:GOTO 480 

770 LOCATE 1,10:FRINT "Teclea la ficha en el orden deseado" 
780 LOCATE 1,12:PRINT "(los cursores y COPY funcionan" 
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790 LOCATE 1,14: PEN 2:PRINT "Enchutfa la impresora" ¡PEN 3 
800 PRINT:LINE INFUT ZE 

310 WIDTH 40 

820 PRINT $8, Zé*:PRINT +*8:FPRINT +8 

830 GOTO 80 

840 CLS:PRINTO "rr RIGUARDAR UN FICHERO RARA PRI 
NT: PRINT 

850 INK 2,11:FEN 2:FPRINT "Pulsa REC y PLAY luego ENTER":CALL 
2BBO6 

860 LOCATE 1,5S:FRINT " 

870 LOCATE 13,8:FRINT "x**Cargando**" 

880 SFEED WRITE 1:SAVE "!'fichero" 

890 LOCATE 10,12:FEN 1:FRINT "UN FOCO DE FACIENCIA FOR FAVOR 
"PEN 3 

900 PRINTS INPUT "NOMERE del fichero? ",n*:OFPENOUT n:+ 

910 FRINT $9,X: 

920 FOR N=1 TO X-1 

930 PFRINT $+9,F3+(N) 

940 NEXT 

950 CLOSEGUT 

960 INK 2,10 

970 GOTO 80 

980 CLS:¡PRINT "os o>LISTADO DE FICHAS 

990 FRINT "N > Por orden numerico": PRINT:PRINTI:PFRINT"A > Por 
orden alfabetico" 

1000 Z3$=INKEYS$: 1F Z3="" THEN 1000 

1010 1F UPFERE(Z4)="N" THEN 1040 

1020 1F UPPERS(Z+)="A" THEN 1130 

1030 GOTO 1000 

1040 CLS:iPRINT "Listado por orden alfabetico":PRINT:PRINT:PR 
INT "En pantalla o en impresora? (F/1)" 

1050 ZF=INKEYS:1F Z+="" THEN 1050 

1060 IF UPPERS(Z4%)="P" THEN C=0:GOTO 1090 

1070 IF UPPERS(Z23)="I" THEN C=8:LOCATE 1,4: PEN 2:FRINT "Cone 

cta la impresora ENTER":CALL R£BER18:FEN 3: "GOTO 1100 

1080 GOTO 1050 

1090 CLS 

1100 FOR N=1 TO X-1 

1110 PRINT $C,F3(N):FPRINT +$C 

1120 NEXT N 

1130 IF C=0 THEN CALL *BR18 

1140 GOTO 80 

1150 CLS:¡PRINT "listado por orden alfabetico":FPRINT "En pant 

alla o en impresora? (F/1)" 

1160 Zé=INKEYE: 1F Z+="" THEN 1160 

1170 1F UPFERS(Z4)="F" THEN C=0:GOTO 1200 

1180 1F UPPERE(Z4)="1" THEN C=8:LOCATE 1,4:FEN 2:FRINT "Cone 

cta la impresora ENTER":CALL *EEI8:FEN 3:"GOTO 1210 

1190 GOTO 1160 

1200 CLS 

1210 DATA A,B,C,D,E,F,G,Hs1,J¿KyL¿MyN,0,F,0,R,5), TU, ¿W,X,Y>, 
Z 

1220 FOR D=1 TO 26 

1230 READ D+ 

1240 FOR N=1 TO X-1 
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12530 IF LEFTS(FS(N),1)=D* THEN PRINT 4C,F3(00:FRINT $C 
1260 NEXT N 
1270 NEXT D 
1280 RESTORE 
1290 IF C=0 THEN CALL *BE18 
1300 GOTO 80 
1310 CLS:¡PRINT "***MODIFICACIONT BORRADO DE FICHA eee" 
1320 LOCATE 1,5: INPUT "NOMERE DE LA FICHA "ES: 1F E*s="" THEN 
1320 
1330 AF=UPPERE (BE) 
1340 1=0 
1350 FOR N=1 TO X-1i 
1360 1F LEFT (FS(N),LEN (4%))=84% THEN 1I=1:GOTO 1400 
1370 NEXT ON 
1380 1F 1I=0 THEN GOSUB 660:GOTO 80 
1390 GOTO 80 
1400 LOCATE 1,5: PRINT " 
"SLOCATE 1,5:FPRINT O F3S(N) 
1410 LOCATE 1,11:sFEN 2:PRINT "ESTA FICHA 2":FEN 3 
1420 Z=INKEYE: 1F Z+="" THEN 1420 
1430 1F UPFERS(Z24)="N" THEN I=0:CLS:GOTO 1370 
1440 IF UPFFERS(Z+)="S" THEN 1460 
1430 GOTO 1420 
1460 LOCATE 1,11:3FEN 2:FRINT "QUIERES MODIFICARLA O BORRARLA 
san 
1470 Z$=INKEYS$:1F Z$="" THEN 1470 
1480 1F UPPERS(Z4)="M" THEN 1510 
1490 IF UPFERS(Z+)="BE" THEN 1550 
13500 GOTO 1470 
1910 LOCATE 1,11:PRINT "VUELVE A ESCRIBIR LA FICHA TOTALMENT 


1520 PRINT "(los cursores y COPY funcionan) "*PRINT:PRINTEERI 


1530 LINE INFUT Fé cn) 

1540 GOTO 80 

1550 FOR D=N TO X-1 

1360 IF D=X-1 THEN F*(D)=F+$(0):GOTO 1590 
1570 F*$(D)=F+(D+1) 

1580 NEXT D 

1390 X=X-1:GOTO 80 


CONTABILIDAD DOMESTICA 
Desde que los micros domésticos aparecieronen el mercado se 
ha venido diciendo que una de sus aplicaciones más útiles era 
la de llevar la contabilidad doméstica. Este programa es un 
buen ejemplo de este tipo de uso del ordenador en Casa. 


El programa consta de dos niveles de menús. El primero se 
compone de cuatro opciones: Ingresos, Gastos, Operaciones e 
Instrucciones. 
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El apartado de Ingresos incluye las dos formas más habituales 
de entrada de dinero al hogar (ingresos de la mujer e ingre- 
sos del marido), junto con otras dos partidas, una por juegos 
de azar y otra por intereses. Es además posible cambiar 
alguna de estas cuatro partidas por alguna diferente, Como 
sueldo de los hijos, etc. 


A pesar de no ser muy completa, la partida de gastos incluye 
una opción de "OTROS" que permite definir hasta tres concep- 
tos diferentes y extras, con la consiguiente optimización en 
el uso de la aplicación. 


En Operaciones se accede a una serie de utilidades adicio- 
nales. La primera de ella lista los resultados: del balance 
(en números rojos o azules dependiendo del -resultado), y de 
las diferentes partidas. La segundá utilidad permite: cargar 
los datos de las diferentes partidas en memoria, dentro de un 
fichero que se llama con el nombre del mes, introducido al 
comienzo del programa, Y que sirve, posteriormente, para 
inicializar los resultados en el programa. 


Este apartado permite ¡igualmente reinicializar todos los 
datos, aunque antes de efectuar el borrado del fichero pide 
conformidad al usuario. 


10 MODE 1 

20 B$="0TROS" 

30 C$="0TROS" 

40 D$="O0TROS" 

50 INK 0,1:BORDER 1: INK 1,24 

60 PEN 1: PAPER O 

70 LOCATE 10,15: INPUT "En que mes estámos "¿Ns$ 
80 MODE 1 

90 CLS:LOCATE 13,5:PRINT "MENU PRINCIPAL" 
100 LOCATE 13,6:PRINT " " 

110 LÓCATE 5,10:PRINT "1.- INGRESOS" 

120 LOCATE 5,12:PRINT "2.- GASTOS" 

130 LOCATE 5,14:PRINT "3.- OPERACIONES" 

140 LOCATE 5,16:PRINT "4.- INSTRUCCIONES" 
150 PLOT 1,120:DRAW 640,120 

160 LOCATE 5,19:PRINT "CUAL ESCOGES?" 

170 PLOT 1,80:DRAW 440,80 

180 A$=INKEY$: 1F As="" THEN 180 

190 IF As$="1" THEN SOUND 1,100,5,7:GOTO 240 
200 IF A$="2" THEN SOUND 1,100,5,7:G0TO 640 
210 1F A$="3" THEN SOUND 1,100,5,7:GOTO 2000 
220 1F A$="4" THEN SOUND 1,100,5,7:G0TO 2740 
230 IF A$<"1" OR A$>"4" THEN 180 

240 CLS:LOCATE 16,3:PRINT "INGRESOS" 

250 LOCATE 16,4:PRINT "========" 

260 LOCATE 4,7:PRINT "1.- SUELDO DEL MARIDO" 
270 LOCATE 4,9:PRINT "2.- SUELDO DE LA MUJER" 
280 LOCATE 4,11:PRINT "3.- INTERESES" 

290 LOCATE 4,13sPRINT "4.- ALQUILERES” 
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300 
310 
320 
350 
340 
3590 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
320 
3350 
340 
3590 
360 
570 
380 
390 
600 
610 
620 
630 
640 
650 
660 
670 


680: 


690 
700 
710 
720 
730 
740 
7530 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 


LOCATE 4,15:PRINT "5.- JUEGOS DE AZAR" 
LOCATE 4,17: PRINT "6.- VOLVER AL MENU PRINCIPAL" 
PLOT 1,110:DRAW 640,110 

LOCATE 4,20: INPUT "CUAL ESCOGES"; A 

IF A<1 OR A>6 THEN 330 

ON A GOTO 360,430,500,570,640,90 
CLS:N=1:PRINT "SUELDO DEL MARIDO": PRINT 
PRINT:PRINT "ESCRIBE '0” PARA TERMINAR" 
WHILE N<>0 

INPUT ON 

M=M+N 

WEND 

GOTO 240 

CLS:N=1:PRINT:PRINT "SUELDO DE LA MUJER” 
PRINT:PRINT "ESCRIBE '0” PARA TERMINAR" 
WHILE N<>0 

INPUT ON 

Q=0+N 

WEND 

GOTO 240 

CLS:N=1:PRINT "INTERESES" 

PRINT:PRINT "ESCRIBE '0” PARA TERMINAR" 
WHILE N<>0 

INPUT ON 

W=h-N 

WEND 

GOTO 240 

CLS:¿N=1:PRINT "ALQUILERES" 

PRINT:PRINT "ESCRIBE '0” PARA TERMINAR" 
WHILE N<>0 

INPUT N 

R=R+N 

WEND 

GOTO 240 

CLS:N=1:PRINT "INGRESOS POR JUEGO" 
PRINT:PRINT "ESCRIBE '0* PARA TERMINAR" 
WHILE N<>0 

INPUT ON 

L=L+N 

WEND 

GOTO 240 

CLS:LOCATE 17,1:PRINT "GASTOS" 

LOCATE 17,2:PRINT "======" 

LOCATE 4,4:PRINT "1.- PRESTAMO HIPOTECARIO" 
LOCATE 4,5:PRINT "2.- TELEFONO" 

LOCATE 4,6:PRINT "3.- ENERGIA ELECTRICA" 
LOCATE 4,7:PRINT "4.- AGUA" 

LOCATE 4,8:PRINT "5.- AUTOMOVIL" 

LOCATE 4,9:PRINT "6.- CONTRIBUCION" 
LOCATE 4,10:PRINT "7.- COMPRAS" 

LOCATE 4,11:PRINT "8.- ORDENADOR" 
LOCATE 4,12:PRINT "9.- SEGUROS" 

LOCATE 3,13: PRINT "10.- OTROS" 

LOCATE 3,14:PRINT "11.- VOLVER AL MENU PRINCIPAL" 
PLOT 1,170:DRAW 640,170 

LOCATE 8,20: INPUT "CUAL ESCOGES" A 


860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
"960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
11:30 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
220 
230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
¿PRI 
1400 


UTILIDADES 


IF A=1 THEN 920 ELSE IF A=2 THEN 1000 
1F A=3 THEN 1070 ELSE IF A=4 TEHN 1000 
IF A=5 THEN 1230 ELSE IF A=6 THEN 1310 
IF A=7 THEN 1390 ELSE IF A=8 THEN 1460 
IF A=9 THEN 1520 ELSE IF A=10 THEN 1580 


CLS:N=1:PRINT "CUALES HAN SIDO LOS GASTOS POR PREZTAMO* 
PRINTsSPRINT "ESCRIBE '0” PARA TERMINAR" 
PRINT:¿PRINT "ESCRIBE 'O0* PARA TERMINAR" 
WHILE N<>0 

INPUT N 
P=P+N 
WEND 
GOTO 710 

CLS:N=1 

PRINT:PRINT "CUALES HAN SIDO LOS GASTOS DE TELEFONO" 
WHILE N<>0 

INPUT N 

T=T+N 

WEND 

GOTO 710 

CLS:N=1 

PRINT "CUALES HAS SIDO LOS GASTOS DE ELECTRICIDAD?" 
PRINT:PRINT "ESCRIBE '0” PARA TERMINAR" 

WHILE N<>O0 

INPUT N 

E=E+N 

WEND 

GOTO 710 

CLS: N=1 

PRINT "CUALES HAN SIDO LOS GASTOS DE AGUA?" 
PRINT2PRINT "ESCRIBE '0” PARA TERMINAR" 

WHILE Nx<>0 

INFUT N 

H=H=+N 

WEND 

GOTO 710 

CLS:N=1 

PRINT "CUALES HAN SIDO LOS GASTOS DE COCHE?" 
PRINT:PRINT “ESCRIBE '0* PARA TERMINAR" 

WHILE Nz>0 

INPUT ON 

C=C+N 

WEND 

GOTO 710 

CLS:N=1 

FPRINT "CUALES HAN SIDO LOS GASTOS DE CONTRIRUCIONES?" 
PRINT:FPRINT "ESCRIBE '0” PARA TERMINAR" 

WHILE Nz2>0 

INFUT N 

I=1+N 

WEND 

GOTO 710 

CLS:N=1:FPRINT "CUALES HASN SIDO LOS GASTOS DE COMPRAS?" 
NT:FPRINT "CUANDO TERMINES PULSA “0'" 

PRINT "CUALES HASN SIDO LOS GASTOS DE COMPRAS?" 
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1410 WHILE N<>0 

1420 INFUT N 

1430 G=G+N 

1440 WEND 

1450 GOTO 710 

1460 CLS:N=1:FRINT "CUALES HAN SIDO LOS GASTOS DEL ORDENADOR 
?2':¿PRINT:PRINT “CUANDO TERMINES PULSA *0'*" 

1470 WHILE N<>0 

1480 INPUT N 

1490 O=0+N 

1300 WEND 

1510 GOTO 710 

1520 CLS:N=1:PRINT "CUALES HAN SIDO LOS GASTOS DE SEGUROS?": 
PRINT:PRINT "CUANDO TERMINES PULSA *0*" 

1530 WHILE Nx >0 

153540 INPUT N 

1550 D=D+N 

1360 WEND 

1570 GOTO 710 

1580 CLS:PRINT "PUEDES ESCOGER HASTA TRES CONCEFTOS DIFE-REN 
TES"*»PRINT:PRINT 

1590 INPUT "CUANTOS PREFIERES"; RE 

1600 ON RE GOTO 1610,1680,1810 

1610 CLS: INPUT "CUAL ES ESE GASTO"; Bs+ 

1620 CLS:N=1:PRINT "CUALES HAN SIDO LOS GASTOS DEBIDO A ";¿B* 
¿PRINT:¿PRINT "CUANDO TERMINES PULSA *0'*" 

1630 WHILE Nx<>0 

1640 INFUT N 

1650 QW=0W+N 

1660 WEND 

1670 GOTO 710 

1680 CLS: INPUT "CUAL ES EL PRIMER GASTO"¿B3$. 

1690 CLS: INFUT "CUAL ES EL SEGUNDO GASTO?";C$ 

1700 CLS:N=1:PRINT "CUALES HAN SIDO LOS GASTOS DEBIDO A ";¡BE%$ 
33PRINT:PRINT"CUANDO TERMINES PULSA *0*" 

1710 WHILE Nx<>0 

1720 INPUT N 

1730 OW=QW+N 

1740 WEND 

1750 CLS:N=1:PRINT "CUALES HAN SIDO LOS GASTOS DEBIDO A ";¿Cx3+ 
¡¿3PRINT:3PRINT "CUANDO TERMINES FULSA “0'" 

1760 WHILE N<>0 

1770 INPUT N 

1780 WE=WE+N 

1790 WEND 

1800 GOTO 710 

1810 CLS: INPUT "CUAL ES EL PRIMER GASTO"; B+$ 

1820 CLS: INPUT "CUAL ES EL SEGUNDO GASTO"; C+ 

1830 CLS: INPUT "CUAL ES EL TERCER GASTO?" ,D+ 

1840 CLS:N=1:PRINT "CUALES HAN SIDO LOS GASTOS DEKIDO A ";B+$ 
SPRINT:PRINT "CUANDO TERMINES FULSA *0'" 

18950 WHILE N<>0 

1860 INPUT N 

1870 QW=C0W+N 

1880 WEND 

1890 CLS:N=1:FPRINT "CUALES HAN SIDO LOS GASTOS DEBIDO A "¿Bs 
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¿PRINT:PRINT "CUANDO TERMINES PULSA '0'" 
1900 WHILE N<> 

1910 INPUT ON 

1920 WE=WE-+N 

1930 WEND 

1940 CLS:N=1:PRINT "CUALES HAN SIDO LOS GASTOS DEBIDO A ";D* 
¿PRINT:PRINT "CUANDO TERMINES PULSA '0'" 

1950 WHILE N<>0 

- 1960 INPUT N 

1970 ER=ER+N 

1980 WEND 

1990 GOTO 710 

2000 MODE 1:LOCATE 15,3:PRINT "OPERACIONES" 

2010 LOCATE 15,4:PRINT "===========" 

2020 LOCATE 4,7:PRINT "1.- LISTAR LOS RESULTADOS" 

2030 LOCATE 4,8:PRINT "2.- GRABAR LOS RESULTADOS" 

2040 LOCATE 4,9:PRINT "3.- CARGAR LOS RESULTADOS" 

2050 LOCATE 4,10:PRINT "4.- BORRAR MEMORIA" 

2060 LOCATE 4,11:PRINT "5.- VOLVER AL MENU PRINCIPAL" 

2070 PLOT 1,200:DRAW 440,200 

2080 LOCATE 8,22: INPUT "CUAL ESCOGES "¡A 

2090 ON A GOTO 2100,2530,2550,2630,90 

2100 CLS:LOCATE 16,1:PRINT "INGRESOS" 

2110 LOCATE 1,4: PRINT "SUELDO DEL MARIDO........"3M;"PTAS" 
2120 LOCATE 1,6:PRINT "SUELDO DE LA MUJER......."30; "PTAS" 
2130 LOCATE 1,8:PRINT "INTERESES. ...oooooooooo..."3Wj "PTAS" 
2140 LOCATE 1,10:PRINT "ALQUILERES. ....oooooooo..."¿Riy"PTAS" 
2150 LOCATE 1,12:PRINT "JUEGOS DE AZAR. .........."3L3"PTAS" 
2160 V=M+Q+W+R+L 

2170 PLOT 1,190:DRAW 640,190 


2180 LOCATE 1,16:FRINT "TOTAL INGRESOS........ s.."3U3"PTAS" 
2190 LOCATE 1,22: PRINT "PRESIONA UNA TECLA PARA VER GASTOS" 
2200 A$=INKEYS$: 1F A$="" THEN 2200 

2210 IF As=" " THEN 2220 


2220 MODE 1:LOCATE 16,1:PRINT "GASTOS" 

2230 LOCATE 1,4: PRINT "PRESTAMO HIPOTECARIO...."5P,y"PTAS" 
2240 LOCATE 1,5:PRINT "TELEFONO .coooooooooooo. "3 TG"PTAS" 
2250 LOCATE 1,6:FPRINT "ENERGIA ELECTRICA. ......<."¿Es "PTAS" 


2260 LOCATE 1,7:PRINT "AGUAE ...oooooccooo o ooo nooo"¡Hi"PTAS" 
2270 LOCATE 1,8:PRINT "AUTOMOVI...oooooooonoo ooo. "305 "PTAS" 
2280 LOCATE 1,9: PRINT "CONTRIBUCION. ...ooooooo-... "sIj3"PTAS" 
2290 LOCATE 1,10:FRINT "ALMACENE....... e. ....... <" G3 "PTAS" 
2300 LOCATE 1,11:FPRINT "ORDENADOR. ..oooooooocoao o... "505 "PTAS 
2310 LOCATE 1,12:FPRINT "SEGUROS....oooooooonoo.."pDi"PTAS" 


2320 LOCATE 1,13:PRINT B$;:LOCATE 15,13: 0W; "PTAS" 
2330 LOCATE 1,15:PRINT D$;:LOCATE 15,15:ER; "PTAS" 

2340 PLOT 1,140:DRAW 640,140 

2350 X=P+T+E+H+C+1+G+0+D+QW+WE+ER 

2360 J=VY-X 

2370 LOCATE 1,18:PRINT "TOTAL GASTOS. ..........."¿Xp"PTAS" 
2380 LOCATE 1,22: PRINT "PRESIONE UNA TECLA PARA VER BALANCE" 
2390 A$=INKEYS$: 1F As=""2230 - 

2400 IF Ag$=" " THEN 2410 

2410 MODE 1:LOCATE 16,6:PRINT "BALANCE" 

2420 LOCATE 16,7:PRINT "=======" 
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2430 1F J<20 THEN 2450 

2440 IF J>0 THEN 2530 

2450 LOCATE 1,15:PRINT "MES: "¿sFEN 3:5FRINT Ne 

2460 PEN 1:LOCATE 1,17: FPRINT "BALANCE: "¿ PEN 3 

2470 PRINT J¿3sPEN 1:PRINT " FTAS":GOTO 2490 

2480 PEN 1sLOCATE 1,17:PRINT "BALANCE: "¿J¿" PTAS" 
2490 LOCATE 1,22:PRINT "PRESIONA UNA TECLA PARA VOLVER AL. ME 
Ny" 

2500 As=INKEY+: 1F As="" THEN 2500 

2510 1F As=" " THEN 2000 

25320 GOTO 2000 

2530 CLS: SPEED WRITE 1:0OPENOUT N3$ 

2540 PRINT $49,P,T,E,H,C0,1,6,0,D,¿M,Q,W,R,L,QW, WE, ER 
25590 PRINT +9,B3 

2560 PRINT +$9,C+ 

2570 PRINT +$9,Ds3 

25380 FPRINT +$9,N+$ 

2590 CLOSEQUT 

2600 GOTO 2000 

2610 CLS:OFENIN N$ 

2620 INPUT $9,F,T,E,H,C0,1,6,0,D,M,Q,W,Ry,L¿QW,WE y ER 
2630 INPUT +$9,B+$ 

2640 INPUT +$9,C+ 

2650 INFUT +$49,Ds+$ 

2660 INFUT +9,N3$ 

2670 CLOSEIN 

2680 GOTO 2000 

2690 CLS: INPUT "ESTAS SEGURO"; As 

2700 IF UPFER(AS$)="NO" THEN 2000 

2710 P=0:E£=0:H=0:C=0: I1=0: 6G=0:0=0: D=0: QO=0: W=0:R=0: L=0: QU=0 
2720 WE=0: ER=03 B$="O0TROS" 3 C$=B+$:1 D$=B+$ 

2730 GOTO 10 

2740 MODE 1sLOCATE 14,S5S:PRINT "INSTRUCCIONES" 

2750 LOCATE 14,6: PRINT "====mm=s======= "O 

2760 LOCATE 1,10:PRINT " Este programa te permite llevar 1 
a" 

2770 PRINT "la contabilidad de tu casa.Por favor " 
2780 PRINT "sigue atentamente las presentes" 

2790 PRINT "instrucciones" 

2800 LOCATE 1,24:PRINT "PRESIONA UNA TECLA PARÁ CONTINUAR" 
2810 A+s=INKEYS$: IF As$="" THEN 2810 

2820 IF Af=" " THEN 2830 

2830 CLS:LOCATE 1,8 

2840 PRINT " Nada mas empezar el ordenador te mos-"3 
2850 PRINT "trara lo que se llama menu principal."; 
2860 PRINT "En el hay cuatro opciones. La primera" 
2870 PRINT "debe pulsarse si hay ingresos." 

2880 PRINT "La segunda si hay gastos, y la tercera "; 
2890 PRINT "se pulsa para realizar determinadas"; 

2900 PRINT "operaciones tales como listar resultados”; 
2910 PRINT "grabarlos, etc." 

2920 LOCATE 1,24: PRINT "PRESIONA UNA TECLA PARA CONTINUAR" 
2930 AF=INKEYS$: IF As="" THEN 2930 

2940 IF Ag=" " THEN 2950 

2950 MODE 1:LOCATE 16,2:FPRINT "INGRESOS" 

2960 LOCATE 16,3:¿PRINT "========" 
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2970 LOCATE 1,5:FRINT "Se seleciona uno del menu pulsando" 
2980 PRINT "el numero correspondiente seguido de " 

2990 PRINT " CENTERJI." 

3000 PRINT:PRINT "A continuacion saldra el ingreso selec-" 
3010 FRINT "“cionado.Se introduciran todos los gastos"; 
3020 PRINT "derivados de este concepto. Cuando se " 

3030 PRINT "termine la introduccion de datos se " 

3040 PRINT "pulsa '0” seguido de [ENTERJ." 

3050 LOCATE 1,24: PRINT "PRESIONA UNA TECLA FARA CONTINUAR" 
3060 As$=INKEY+: 1F As$="" THEN 3060 

3070 IF As=" " THEN 3080 . 

3080 CLS:LOCATE 17,3:PRINT "GASTOS" 

3090 LOCATE 17,4:PRINT "======" 

3100 LOCATE 1,7:PRINT "Para los gastos se siguen las mismas" 
3110 PRINT "instrucciones que para ingresos,con la" 

3120 PRINT "diferencia de que hay conceptos defi-" 

3130 PRINT "nibles.Esto quiere decir que se pueden" 

3140 PRINT "introducir una serie de conceptos si " 

3150 PRINT "los gastos no estan entre los descritos" . 
3160 PRINT:PRINT "Al seleccionar estos, el ordenador pre-" 
3170 PRINT "gunta cuantos se quieren definir (3 maximo)" 
3180 LOCATE 1,24: PRINT "PRESIONA UNA TECLA PARA CONTINUAR" 
3190 A$=INKEY$3 1F A+$="" THEN 3190 

3200 CLS:LOCATE 17,4:PRINT "CARGAR" 

3210 LOCATE 17,S5S:PRINT "======" 

3220 LOCATE 1,10:PRINT " Para cargar un mes determinado" 
3230 FRINT "se le dice al ordenador el nombre de ese mes" 
3240 LOCATE 1,24: PRINT "PRESIONA UNA TECLA PARA CONTINUAR" 
3250 A$=INKEYS$: IF Aé="" THEN 3250 

3260 GOTO 90 


Fara la elaboración de un reloj en tiempo real el AMSTRAD 
dispone de la instrucción TIME que facilita el número de 
1/300 segundos transcurridos desde que se encendió la  máqui- 
ná. De esta forma si se restan en dos instantes consecutivos 
los correspondientes valores de TIME, y se divide este valor 
por (00 se obtiene el número de segundos transcurridos entre 
esos dos instantes de tiempo. 


Este es el mecanismo por el que se construyen, normalmente, 
los relojes para en este ordenador, o en cualguier otro que 
disponga de una instrucción de este tipo. 


Este programa, de extraordinaria sencillez, demanda al usua- 
rio la hora, el minuto y los segundos para poner en hora el 
reloj que seguidamente va a visualizarse en forma digital. 


Una de las aplicaciones de este programa, cuya Utilización 
más adecuada es dentro de otro programa que lo llame, €es la 
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de cronómetro, para lo cual basta con inicializar la hora en 
00 00 00. 


Fara su realización se utilizan tres bucles WHILE... WEND, 
poco ustales en los programas en BASIC. 


10 MODE 1 

20 INPUT "Pulse la hora actual ,minutos y segundos (h,m,s)",h 
or ,minu,seg 

30 CLS:datum=INT (TIME/300) 

40 WHILE hor<is3 

50 WHILE minuxó60 

60 WHILE tickx60 

70 tick=C(INT(TIME/300) -—datum) +seg 

80 LOCATE 70,4 


90 PRINT $*0,USING "**"shoras:PRINT "  "s:«PRINT USING "*$$*"zmi 
nus PRINT "  "¿2PRINT USING "4$"5tick 

100 WEND 

110 tick=0 

120 seg=0 


130 minu=minu+l 
140 GOTO 30 

1530 WEND 

160 MIN=0 

170 hor=hor+1 
180 WEND 

190 hor=1 

200 GOTO 40 


AL. ARMA 


Utilizando la rutina de reloj incluido anteriormente se puede 
realizar un pequeño programa que incluya dos alarmas. En 
pantalla se visualiza constantemente la hora actual junto con 
las horas en que debe activarse la alarma. 


Cuando la hora actual y alguna de las dos alarmas coinciden, 
elo programa emite un sonida y hace parpadear el borde de la 
pantalla. 


Se puede visualizar el reloj en dos formas: MODO 1 y MODO 2. 
Es más aconsejable, sin embargo, €el modo 2, que es el que 
ofrece una mejor presentación de los datos en el monitor. 


Para introducir los datos se deben separar la horas los 


minutos y los segundos mediante comas. 


10 SPEED WRITE 1 
20 INK 0,0: INK 1,19:BORDER O:CLS:MODE 2 
3O PRINT "RELOJ-ALARMA AMSTRAD CFC 464/664" 
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GOSUB 180 

CLS:PRINT "RELOJ-ALARMA AMSTRAD CPC 464/664" 
LOCATE 1,5:PRINT "INTRODUCCION DE ALARMA no. 1" 
LOCATE 1,6 


PRINT "Indica la hora,minutos y segundos "; 
INPUT "(separados por comas) ",A,B,C 

LOCATE 1,8: PRINT "INTRODUCCION DE ALARMA no. 2" 
LOCATE 1,9 

PRINT "Indica la hora,minutos y segundos "; 
INPUT " (separados por comas) ",D,E,F 
CLS:PRINT "RELOJ-ALARMA AMSTRAD CPC 464/664" 


PRINT "ALARMA no.1 A LAS "¿Aj "H"pB3 "Mp0" 
PRINT "ALARMA no.2 A LAS "¿D3"H"pE3U Opt" 
GOTO 290 


PLOT 250,150: DRAW 400,150: DRÁAW 400,270: DRAW 230,270 


DRAW 250,150:PLOT 250,230: DRAW 400,230 
LOCATE 33,10: PRINT "MODO VISUALIZACION" 
LOCATE 33,13:2PRINT "MODO 1l.....+..+.(1)" 
LOCATE 33,14:PRINT "MODO Z......(2)" 
LOCATE 32,17:PRINT "Pulsa opcion deseada" 
af=INKEYS$: IF as="" THEN 240 

IF af="1" THEN 270 

IF as="2" THEN 280 

MODE 1: RETURN 

MODE 2: RETURN 

LOCATE 1,5 

PRINT "PULSE LA HORA ACTUAL ,MINUTOS Y SEGUNDOS "; 
INPUT "(H,M,S)"5H,M,S 

LOCATE 1,5:PRINT SPACE*$(65) 
DATUM=INT(TIME/300) 

WHILE H<25 

WHILE M<60 

WHILE T<60 

T=INT((TIME/300)-—DATUM) +5 

LOCATE 13,12 

PRINT +O,USING "*$$$";H,M,T 

LOCATE 14,16:PRINT "H MiS" 

IF H=A AND M=E AND T=C THEN GOSUB 550 
IF H=D AND M=E AND T=F THEN GOSUB 550 
BORDER 0 

WEND 

T=0 

S=0 

M=M+1 

GOTO 330 

WEND 

M=0 

H=H+1 

WEND 

H=1 

GOTO 340 

FOR I=1 TO 200 
R=INT(RND (1)+*12) :RR=INT(RND (1)+12) 
BORDER R,¿RR 

SOUND 7,1,1,7:NEXT 1 

RETURN 


UTILIDADES 


UTILIDADES 


CALCULO DEL INTERES SIMPLE 
Este programa ofrece tres posibilidades de cálculo a través 
de un menú principal: Cálculo del interés simple anual yo 
mensual O diario. 


Fara ello hace uso de la fórmula l=C,RK.T. 


Fara el cálculo del interés diario se ha supuesto que el año 
consta de 260 diasy tal como se supone en la mayor parte de 
las actividades financieras. 


10 CLS 

20 PRINT 

30 PRINT "ESTE PROGRAMA LE PERMITE CALCULAR 2" 
40 PRINT:PRINT:PRINT 

S0 PRINT " 1.-— INTERES SIMPLE ANUAL" 

60 PRINT " 2.- INTERES SIMPLE MENSUAL" 
70 PRINT " 3.- INTERES SIMPLE DIARIO" 
80 PRINT:PRINT 

90 PRINT "PULSE EL NUMERO QUE CORRESPONDE" :PRINT 
100 PRINT "A LA OPCION ESCOGIDA" 

110 LOCATE 1,20: INPUT " ",P 

120 IF NOT(p=1 OR p=2 OR p=3) THEN 110 
130 ON P GOTO 140,220,300 

140 CLS: INPUT "CAPITAL INICIAL Cl=",C1 
150 INPUT "TANTO POR CIENTO ANUAL R=",R 
160 INPUT "NUMERO DE ANOS T=",T 

170 CF=C1*(1+R*T/100) 

180 PRINT 

190 FRINT "EL CAPITAL FINAL AL CABO": 
200 PRINT "DE "¿T;3" ANOS ES : "¿CF 

210 GOTO 370 

220 CLS: INPUT "CAPITAL INICIAL Cl=",C1 
230 INFUT "TANTO POR CIENTO ANUAL R=",R 
240 INPUT "NUMERO DE MESES T=",T 

250 CF=C1*(1+R*T/1200) 

260 PRINT 

270 PRINT "EL CAPITAL FINAL AL CABO": 
280 PRINT "DE "3T;" MESES ES 2 "5CF 
290 GOTO 370 

300 CLS: INPUT "CAPITAL INICIAL Cl=",CI 
310 INPUT "TANTO POR CIENTO ANUAL R=",R 
320 INPUT "NUMERO DE DIAS T=",T 

330 CF=CI*(1+R*T/36000) 

340 PRINT 

350 PRINT "EL CAPITAL FINAL AL CABO": 
360 PRINT "DE "¿T5" DIAS ES 3 "¿CF 

370 PRINT:PRINT:PRINT:¿PRINT 

380 INPUT "QUIERES HACER MAS CALCULOS?(S/N)",C+$ 
390 IF UPPERS(C+$)="N" THEN END 

400 GOTO 10 
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CUOTAS DE AMORTIZACIÓN ' 


i< 
Hal 
iO 
1169] 
ji 

m 
101 
er 
Had 
iZ 
iD 
iZ 
0 
ins 
im 
in 
lO 
in 


Este programa sirve para calcular las cuotas de amortización 
de préstamos asi como los costes financieros reales de los 
mismos. Fara ello se dispone de un menú que permite el acceso 
a cualquiera de las dos opciones. 


En el primer caso (cálculo de las cuotas constantes periódi- 
cas) el programa facilita tanto el importe total pagado, los 
gastos que ha supuesto en total la operación del préstamo, 
asi como los costes financieros reales. 

» 

En el caso de escoger la opción de cálculo de costes  fiman- 
cieros reales para amortizaciones de préstamos se obtienen 
ciertos (datos adicionales. De esta forma, dado el importe 
nominal inicial y el total de gastos satisfechos realmente a 
lo largo de la vigencia de la operación, el ordenador calcula 
el coste financiero total. 


El programa ocupa algo menos de 2 Fbytes y está escrito en un 
Basic casi estándar por lo que se hace fácil su adaptación a 
cualguier otra máquina. 


10 MODE 2:CLEAR: INK 1,0: INK 0,20: BORDER 8 

20 LOCATE 1,6:FPRINT SPFC(32) "MENU": PRINT: PRINT 

30 PRINT SPFC(19) "1.- Calculo de cuota constante periodica" 
40 PRINT SPC(19) " para la amortizacion de un prestamo” 
SO PRINT:PRINT 

60 PRINT SPC(19) "2.— Calculo del coste financiero real, en" 
70 PRINT SPC(19) " amortizaciones de prestamos" 

80 as$=INKEYS$: IF a$="1" THEN 100 

90 1F a$="2" THEN 280 ELSE 80 

100 CLS: BORDER 203 INPUT "importe del prestamo"¿b:¿FRINT 

110 INPUT "Tipo de interes";¿ti:zPRINT 

120 INPUT "Tipo de i.g.t.e."sit:PRINT 

130 INPUT "Numero de cuotas anualmente"3msPRINT 

140 INPUT "Numero total de pagos"¿n:PRINT 

150 PRINT STRINGS$ (80,"-") 

160 ti=ti+((ti*it)/100) 

170 ti=ti*(0.01/m:3cu=INT ((b*ti*(1+ti)"n)/((i+ti)on-1)) 
180 i=(cux*n)-b:GOSUB 410 

190 PRINT "Importe de la cuota: "; 

200 PRINT USING "+%,44,H+H%$"3cus PRINT O" Pts."; 

210 PRINT TAB(45) "Total pagado: "¿:PRINT TAB(63);5 

220 PRINT TAB(63) USING "4$,4+H$$,HHH "cun; 3 PRINT O" Ptas." 
230 PRINT "Total gastos: "; 

240 PRINT pc(7);USING "4,444, HHRU5 iso PRINTO" Pts."; 

250 PRINT TAB(45) "Coste financiero: "; 

260 PRINT TAB(66) USING "$$$. HHR"5Cf33PRINTO" 7" 

270 PRINT STRING*+(80,"="):GOTO 390 

280 CLS: BORDER 20 

290 INPUT "Importe nominal del prestamo";b:PRINT 
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300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
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INPUT. "Importe pagado por intereses"zin:sPRINT 

INPUT "Importe pagado por otros conceptos";¿va: PRINT 
INPUT "Numero de pagos realizados, anualmente"¿m:PRINT 
PRINT "Numero de pagos realizados, en total":¡n:PRINT 
i=in+va:GOSUB 410 

PRINT STRING+ (80, "-") 

FRINT "Coste financiero real: "; 

PRINT USING "$4HH$.HHH"3Ccf3PRINT " 7" 

PRINT STRING*+(80,"=") 

LOCATE 1,25: PRINT "Pulsa —-0-— para volver al Menu" 

IF INKEYS <>"0" THEN 400 ELSE 10 
cf=(6m*i)/((3%b)*(n+1)+(1*(n-1)))2cf=cFf*100: RETURN 


PROGRAMAS MATEMÁTICOS 


SUCESIONES ARITMETICAS 


Este programa permite realizar diversos cálculos sobre suce- 
siones aritméticas, muy comines en el cálculo aritmético y 
algebraico. 


Todas las opciones son accesibles a través de un menú. Quizás 
la más relevante es la que permite interpolar NN términos 
entre dos números dados. Hay que señalar que N, en este caso 
es el número de términos interpolados, por la que el 
intervalo se divide en N+1 subintervalos. 


En la notación empleada se utiliza Al para indicar el primer 
término de cualquier sucesión, aunque en algunos textos de 
matemáticas se le suele llamar A. 


El programa es autoexplicativo y de fácil manejo. Todas las 
instrucciones empleadas, de BASIC, son estándares. 


10 CLS:PRINT 

20 PRINT "PROGRAMA FARA CALCULAR :" 

30 PRINT 

40 PRINT "1. -— CALCULO DEL TERMINO ENESIMO " 
SO PRINT "2. —- CALCULO DE LA RAZON" 

60 PRINT "3. — CALCULO DEL PRIMER TERMINO" 

70 PRINT "4, - CALCULO DEL NUMERO DE TERMINOS" 


80 PRINT "S. - INTERPOLAR H MEDIOS ARITMETICOS ENTRE 
DOS TERMINOS DADOS" 

90 PRINT "6. —- CALCULO DE LA SUMA DE N TERMINOS CONSE 
CUTIVOS" 

100 PRINT:PRINT: 

110 PRINT "PULSE EL NUMERO CORRESFONDIENTE A LA OPCION 
DESEADA" 


120 LOCATE 1,20: INPUT P 


130 IF NOT (P=1 OR P=2 OR F=3 OR P=4 OR P=3 OR F=6) THEN 120 
140 PRINT 


150 ON P GOTO 160,240,310,380,460,590 


160 CLS 

170 INPUT "PRIMER TERMINO al = ",Al 

180 INPUT "NUMERO DE TERMINOS N = ",N 

190 INPUT "RAZON O DIFERENCIA D = ",D 

200 AN=A1+(N-1)*D 

210 PRINT 

220 PRINT " EL TERMINO N-ESIMO DE LA PROGRESI 


ON ES: AN = "¿AN 

230 GOTO 660 

240 CLS 

250 INPUT "PRIMER TERMINO Al =",A1 
260 INPUT "TERMINO N-ESIMO AN =",AN 
270 INPUT "NUMERO DE TERMINOS N =",N 
280 D=(AN-A1)/ (N-1) 
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290 PRINT: PRINT "LA RAZON O DIFERENCIA DE LA PR 
OGRESION ES: D ="; 

300 GOTO 660 

310 CLS 


320 INPUT "TERMINO N-ESIMO AN = ",AN 

330 INPUT "RAZON O DIFERENCIA D = ",D 

340 INPUT "NUMERO DE TERMINOS N = ",N 

330 LET Al=AN-(N-1)*D 

360 PRINT:PRINT "EL PRIMER TERMINO DE LA PROGRESION ES: 
Al = "¿Al 

370 GOTO 660 

380 CLS 


390 INPUT "PRIMER TERMINO Al =",A1 
400 INPUT "TERMINO N-ESIMO AN =",AN 
410 INPUT "RAZON O DIFERENCIA D =",D 
420 N=1+(AN-A1)/D 
430 PRINT 
440 PRINT "EL NUMERO DE TERMINOS DE LA PROGRESIO 
N ES: N ="¿N7 
450 GOTO 660 
460 CLS 
470 INFUT "NUMERO DE MEDIOS A INTERPOLAR Hz ",H 
480 INPUT "PRIMER TERMINO 1 ",P 
490 INPUT "ULTIMO TERMINO :.",U 
500 LET D=(U-P)/(H+1) 
510 PRINT 
520 PRINT "LA RAZON DE LA PROGRESION ES: D =",D 
530 PRINT:PRINT "LOS MEDIOS ARITMETICOS INTERPOLADOS SON: " 
540 FOR I=1 TO H 
550 LET G=P+1*D 
560 PRINT G, 
570 NEXT 1 
-580 GOTO 660 
590 CLS 
600 INPUT "NUMERO DE TERMINOS A SUMAR N = ",N 
610 INPUT "PRIMER TERMINO Al =",A1 
20 INPUT "RAZON O DIFERENCIA D =",D 
630 S=N+*(A1+(N-1)*(D/2)) 
640 PRINT 
650 PRINT "LA SUMA DE LOS "3¿N3 "TERMINOS DE LA PRO 
GRESION ES: S="¿S 
660 PRINT:PRINT:PRINT:PRINT:PRINT:¿PRINT 
670 INPUT "QUIERES SEGUIR HACIENDO CALCULOS? (S/N) ",R$ 
680 IF UPPERS$(R$)="N" THEN END 
690 GOTO 10 


OPERACIONES CON COMPLEJOS EN FORMA ECLAR 
Un complejo representado en forma polar se define por su 


módulo y por el áriqgulo que forma éste con el eje positivo de 
las X, la notación en forma polar es especialmente útil para 
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el cálculo de productos, cocientes, raices enésimas y loga- 
ritmos de números complejos. 


La principal complicación matemática de esta representación 
proviene del hecho de que dos complejos con igual módulo y 
ángulos que difieran en n veces 360 grados representan en 
realidad al mismo complejo. Esto explica el hecho de que un 
mismo número tenga varias raices y que el logaritmo de un 
número complejo tenga un infinito número de sobuciones. 


Este programa permite realizar las operaciones nombradas, de 
gran utilidad en numerosos problemas matemáticos y fisicos, 
como son la resolución de circuitos eléctricos y electrónicos 
o llas ecuaciones de propagación de ondas. 


10 CLS 
20 PRINT "OPCIONES: " 
30 PRINT:PRINT3PRINT:PRINT:PRINT 


40 PRINT "1.-PRODUCTO DE DOS NUMEROS COMPLEJOS EN FORM 
A POLAR" 

50 PRINT "2.-—COCIENTE DE DOS NUMEROS COMPLEJOS EN FORM 
A POLAR" 

60 PRINT "3,.—POTENCIA N-ESIMA- DE UN NUMERO COMPLEJ 
O EN FORMA POLAR" 

70 PRINT "4.-RAICES N-ESIMAS DE UN NUMERO COMPLEJ 


O EN FORMA POLAR" 

80 LOCATE 5,18: INPUT "OPCION ESCOGIDA : ",N 

90 IF NOT(N=1 OR N=2 OR N=3 OR N=4)THEN 80 

100 CLS:ON N GOTO 110,110,260,260 

110 INPUT "MODULO DE Zi: ",Ri 

120 PRINT: INPUT "ARGUMENTO DE Zi: ",Wi 

130 PRINT: INPUT "MODULO DE Z2: ",R2 

140 PRINT: INPUT "ARGUMENTO DE Z2: ",W2 

150 IF N=2 GOTO 210 

160 RPERI%4R2:WP=W1+W2 

170 PRINT:PRINT:PRINT:PRINT "EL PRODUCTO Z1*Z2 VALE: ":PRINT 
180 PRINT "  MODULO= "¿RP; 

190 PRINT "ARGUMENTO= ";WP 

200 GOTO 450 

210 RP=R1/R2:IWP=W1-W2 

220 PRINT:PRINT:PRINT:PRINT "EL COCIENTE Z1/Z2 VALE: " 
230 PRINT:PRINT "  MODULO= "¿RP; 

240 PRINT "ARGUMENTO= ";WP 

250 GOTO 450 

260 INPUT "MODULO DE Zz ",R 

270 PRINT: INPUT "ARGUMENTO DE Z:z ",W 

280 PRINT: INPUT "VALOR DE Nz ",NN 

290 IF N=4 GOTO 360 

300 RP=R“N: WP=N*W 

310 IF WP>360 OR WP<360 THEN 330 

320 WP=WP+360: GOTO 310 

330 PRINT:PRINT:PRINT:PRINT "LA POTENCIA N-ESIMA DE Z (ZN) 
VALE 2" 

340 PRINT:PRINT "MODULO: "¿RP3 "ARGUMENTO: "¿WP 
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350 GOTO 450 

360 IF W>360 OR W<0O THEN 380 

370 W=W+360: GOTO 360 

380 RP =R”*(1/N) 

390 PRINT:PRINT:PRINT:PRINT "LAS RAICES N-ESIMAS DE Z VALEN 


400 PRINT:PRINT "MODULO: "¿RP 
410 PRINT:PRINT "LAS"¿N;" RAICES TIENEN COMO ARGUMENTO: "¿PR 


420 FOR I=0 TO N-1 

430 WP=(W+1I*360) /N 

440 PRINT WP,:NEXT 1 

450 PRINT:PRINT:PRINT:PRINT 

460 INPUT "QUIERES REALIZAR MAS CALCULOS? (S o N)",R$ 
470 IF UPPERS(R$)="N" THEN END 

480 GOTO 10 


INTEGRAL FOR El. METODO DE SIMEFSON 

Asi. como los métodos por ordenador para la resolución de 
derivadas de funciones son, generalmente, poco eficaces, en 
el caso de las integrales definidas estos métodos se revelan 
como especialmente potentes. 


Uno. de los métodos más usuales para la resolución de inte- 
grales por medio de ordenador es la fórmula de Simpson. 


Fara calcular una integral el ordenador pide los límites de 
ésta, y tantos puntos intermedios y equiespaciados como le 
indique el usuario. 


El método comete un error muy pequeño siempre que la función 
original sea lo suficientemente monótona y se divida el 
intervalo de integración en un número suficientemente grande 
de subintervalos. 


10 CLS 
20 PRINT "INTRODUZCA LOS LIMITES DEL INTERVALO: " 
30 INPUT " INFERIOR = ",a 


40 INPUT "Y SUPERIOR = ",R 

50 INPUT " INTRODUZCA EL NUMERO DE INTERVALOS (PARES) ",M 
60 N=M/2 

70 PRINT "VALORES DE LA FUNCION EN LOS EXTREMOS" 

80 INPUT " INFERIOR = ",Yi 

90 INPUT "Y SUPERIOR = ",Y2 

100 H=(B-A) / (2%N) 

110 Ni=2x*N-1 

120 N2=2%* (N-1) 

130 SI=0 
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140 SP=0 

150 FOR J=1 TO Ni STEP 2 

160 PRINT "VALOR DE F(X) PARA X= "¿A+H*Jz32 INPUT " ",Y 
170 SI=SI+Y 

180 NEXT J 

190 FOR J=2 TO N2 STEP 2 

200 PRINT "VALOR DE F(X) PARA X= "¿A+H*eJj2 INPUT " ",Y 
210 SP=SP+Y 

220 NEXT J 

230 PRINT 

240 PRINT 

250 IS=H*(V1+4*SI+2*SP+Y2) /3 

260 PRINT "LA INTEGRAL PEDIDA ES = ";IS 

270 PRINT " (MEDIANTE LA REGLA DE SIMPSON)" 


El máximo común divisor de dos números es el producto de 
todos los divisores comunes a ambos números. El minimo común 
múltiplo es el máximo común divisor multiplicado por todos 
los divisores no comunes de ambas cifras. 


El cálculo del máximo común divisor o del minimo común 
muiltiplo de dos o tres números es una operación bastante 
sencilla si los números son relativamente bajos.  —Cuando las 
cifras son de valor alto la operación se complica. 


Este programa realiza estos cálculos automaticamente y envia 
los resultados a pantalla de forma conveniente para su recur 
peración. 


Se trata éste de un programa de utilidad como  subrutina en 
aplicaciones aritméticas más complejas, por ejemplo para el 
cálculo de las raices de polinomios Oo la división de dos 
funciones entre si. 


10 CLS: INPUT "DOS O TRES NUMEROS? ",P 
20 IF P=2 THEN 320 

30 CLS 

40 PRINT 

SO PRINT "INTRODUZCA LOS TRES NUMEROS " 
60 PRINT "ORDENADOS DE MAYOR A MENOR" 
70 LOCATE 1,6: INPUT A:zLOCATE 11,6: INPUT B:LOCATE 21,6: INPUT 
C:PRINT:PRINT 

80 X=A 

90 Y=B 

100 P=A*B 

110 M=P/Y 
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120 GOSUB 22 
130 M=P/Y 
140 x=C 

150 GOSUB 220 

160 PRINT "M.C.D. ("jAp", "pBp", "pOj")="3Y 

170 X=M 

180 Y=C 

190 GOSUB 220 

200 PRINT:PRINT "M.C.M. ("jAp", "pB3", "¿Oj ")="3Z 
210 GOTO 480 

220 REM 

230 Q=INT (X/Y) 

240 R=X-QuY 

250 IF R=0 THEN 300 

260 X=Y 

270 Y=R' 

280 Z=M*C/Y 

290 GOTO 230 

300 RETURN 

310 GOTO 480 


o 


320 FRINT 
330 PRINT "INTRODUZCA LOS DOS NUMEROS" 
340 PRINT 
350 LOCATE "1,5: INPUT A2LOCATE 15,5: INPUT E 
360 F=Ax*R 


370 R=A-BX*INT (4/B) 

380 IF R=0 THEN 420 

390 A=B 

400 B=R 

410 GOTO 370 

420 FPRINT 

430 PRINT "M.C.D. (A,B) ="3B 

440 M=P/B 

430 PRINT:PRINT "M.C.M. (A,B) ="3M 
460 PRINT 

470 PRINT 

480 PRINT:PRINT 

490 INPUT "QUIERES SEGUIR HACIENDO CALCULOS?",R$ 
500 "IF R$="N" THEN END ELSE 10 


DERIVADA DE UN FOLINOMIO 


El cálculo de la derivada de un polinomio es una operación 
sencilla. Sin embargo se trata de una de las operaciones de 
más dificil ejecución por medio de ordenador. Aunque existen 
métodos numéricos que resuelven este problema, la realidad es 
que todos ellos introducen errores excesivos en la mayoria de 
los casos. 


Este programa no pretende, sin embargo, resolver este gran 
problema de la matemática en la informática, aunque resuelve 


82 


PROGRAMAS MATEMATICOS 


de (una forma muy correcta una derivada de funciones polinó- 
micas de cualquier grado. 


Igual que en el programa que calcula el producto de dos 
polinomios, éstos deben introducirse según una nomenclatura 
bastante estricta para evitar errores. El resultado es otra 
cadena de caracteres que reprensenta a un polinomio de un 
grado inferior al original. 


La mayor virtud de este programa es su  originalidadi pocos 
programas se atreven a resolver algebraicamente ecuaciones 
matemáticas. Aunque los agui resueltos son de elevada senci- 
llez, se apunta sin embargo a soluciones muy eficaces en la 
resolución de problemas más complejos, mediante el uso de las 
instrucciones de tratamiento de cadenas de caracteres. 


10 MODE 2 

20 LOCATE 1,17:FPRINT STRING+* (80 ,CHR+ (216) ) 

30 LOCATE 13,18:PRINT "CALCULO DE LA DERIVA 
DA DE F(X)" 

40 LOCATE 1,19:PRINT STRING*$ (80, CHR$ (218) ) 

50 LOCATE 1,1:PRINT "FORMATO DE LA FUNCION 2: F(X) = 34X45 +3 
5X41 +17X2 +13,4X1+17X0"" 

60 LOCATE 30,4: PRINT "No olvides poner el termino XO, aunque 
sea OXO" 

70 LOCATE 27,5: PRINT STRING+ (53,"-") 

80 LOCATE 1,8: INPUT " F(X) = ",FX+* 

90 P$=LOWER+S(PX3) 

100 LOCATE 1,11:PRINT "F"(X) = "; 

110 N=VAL  (F3) 

120 A%=INSTR(PE,"x"):p$=MID+(p+,aZ+1) 

130 M=VAL (P$) 

140 N=N*M 

150 IF N=0 GOTO 170 

160 IF M-1=0 THEN PRINT Nz"X"3M-1;5ELSE PRINT Nz"X"5M-13"+"; 
170 IF VAL(P3)=0 GOTO 200 

180 AZ%=INSTRIPS, "+"):P$=MID+$(F+$,A7%+1) 

190 GOTO 110 

200 LOCATE 19,25: INPUT "DESEAS INTRODUCIR ALGUNA FUNCION MAS 

2 "¡As 

210 AS=LOWERS$(As$) 

220 IF INSTR("NOno”,a*s)<>0 THEN CLS:END ELSE 10 
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Este programa realiza el producto de dos polinomios introdu- 
cidos en el ordenador en la forma de una cadena de caracte- 
res. El resultado se visualiza en la misma forma. 


Para un correcto funcionamiento del programa es preciso 
introducir las potencias de X en orden decreciente. En caso 
contrario el resultado estaría cargado errores. (Si alguno de 
los coeficientes es cero se dar este valor, aunque, general-— 
mente, cuando se escriben polinomios no se incluyen los 
términos nulos. Esta condición se hace particularmente  ex-— 
tensiva al término de grado cero. Si éste vale cero y se 
omite su escritura en la introducción de los dos polinomios, 
elo programa solicitará que se vuelva a escribir las dos 
cadenas de nuevo. 


A pesar de las limitaciones de este programa, se trata de un 
buen ejemplo de la utilización del Basic para realizar cál- 
culos y operaciones con cadenas de caracteres. 


10 MODE 2 

20 LOCATE 1,1:PRINT "FORMATO DEL POLINOMIO 2: " 

3O LOCATE 25,3:PRINT "34X45 + 35X41 +13,4X1 +17 X0O" 

40 LOCATE 20,5 

50 PRINT "No olvides poner el termino XO, aunque sea OXO" 
60 LOCATE 25,72 PRINT— "7 X12+35.6 X4+12 X2+1.X1+0 XO" 

70 LOCATE 1,11:PRINT "POLINOMIOS" 

80 LOCATE 3,13: INFUT "P(X)= "3 FOL1S 

90 LOCATE 3,15: INFUT "Q(X)= ",POL2+$ 

100 IF RIGHT*(FOL1+3$,1)="0" AND RIGHT*$(POL23$,1)="0" THEN 130 
110 LOCATE 3,13:PRINT SPACE+(50) :LOCATE 3,15:PRINT SPACES (30 


120 GOTO 80 

130 LOCATE 1,21 

140 QA+=LOWER+(POL2+) 

150 P$=LOWER+S (POL 13) 

160 N=VAL (F:$) *VAL (0:35) 

170 A%=INSTRIPS,"x"):P$=MID$ (P+$,A%+1) 

180 B%=INSTR(0$,"x"):S$=MI1D*+ (0$,B7%+1) 

190 IF N=0 GOTO 220 

200 M=VAL (P+$)+VAL (5%) 

210 PRINT Nz"X"3Mz"+"; 

220 IF VAL(P3$)=0 GOTO 250 

230 C%=INSTR(PS, "+"):PS=MID$S(F$,C07+1) 

240 GOTO 160 

250 C%=INSTR(S$, "+"):O0F=MIDS$ (S$,C0C7/+1) 

260 IF NOT (VAL ((0$)=0) GOTO 150 

270 LOCATE 19,19 

280 INPUT "DESEA INTRODUCIR ALGUN POLINOMIO MAS "¡As 
290 IF NOTC(INSTR("NOno",at)=0) -THEN CLS: END 
300 PRINT CHR*$(19):GOTO 10 
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CONVERSION DE BASES 

Los ordenadores, como es sabido, operan en base binaria. Sin 
embargo la mayoría de los ensambladores y, desde luego, los 
lenguajes de alto nivel como el BASIC, utilizan además otra 
serie de datos numéricos, entre los que cabe destacar los 
níámeros en base decimal y en base hexadecimal. 


Cuando se programa con cierta complejidad se requiere muy A 
menudo ejecutar conversiones de una base a otra. Esto suele 
ser necesario para introducir datos en memoria mediante 
instrucciones FOKÉEÉ, para definir caracteres (len el AMSTRAD 
mediante el comando SYMBOL), Oo para leer datos de la RAM. 


Este programa permite una rápida conversión de números. en 
cualquiera de las tres bases, a cualquiera de las otras dos. 
Se ha incluido además dos opciones que listan las  equivalen- 
cias de datos binarios y datos decimales O  hexadecimales, 
hasta el número 1000 en decimal. 


Hay que recordar que el sistema de numeración hexadecimal 
utiliza, además de los digitos del O al 9, las letras A, E, 
Cy Dy E que simbolizan respectivamente los valores decimales 
10, 11, 12, 13, 14 y 135. 


Para acceder a cualquiera de las posibilidades incluidas se 
debe hacer una llamada a la opción deseada a través del menú 
principal. Cuando el programa pregunta si se quiere seguir 
haciendo conversiones se refiere a la última opción escogida, 
por lo que si se desea ejecutar otro tipo de cálculo hay que 
responderle que no para poder volver a entrar en el menú 
principal. 


Para salirse de las opciones 7 u 8, que listan las tablas de 
conversión, basta con pulsar cualquier tecla para retornar al 
menú principal. 


10 MODE O:RORDER 14: INE 0,13: INE 1,25 

20 LOCATE S5,7:FRINT "CONVERSION" 

3O LOCATE 9,10:FPRINT "DE" 

40 LOCATE 8,13: PRINT "BASES" 

50 FOR X=1 TO 1500: NEXT X 

60 MODE 1:BORDER 12: INK 0,1: INK 1,23 

70 LOCATE 18,2:FRINT "MENU" 

80 PFRINT STRINGES (39,"+x%") 

90 LOCATE 8,5:FPRINT "1 —- DECIMAL A BINARIO” 

100 LOCATE 8,7: PRINT "2 —- DECIMAL A HEXADECIMAL" 

110 LOCATE 8,9:FRINT "3 — RINARIO A DECIMAL" 

120 LOCATE 8,11:FRINT "4 — BINARIO A HEXADECIMAL" 
130 LOCATE 8,13:FRINT "S —- HEXADECIMAL A DECIMAL" 
140 LOCATE 8,135:FRINT "6 HEXADECIMAL A BINARIO" 
150 LOCATE 8,17: PRINT "7 TABLA BINARIA (1-100)" 
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160 LOCATE 8,19:PRINT "8 -— TABLA HEXADECIMAL (1-100)" 
170 LOCATE 8,21:PRINT "9-FIN" 

180 PRINTS: INFUT "OFCION: ",A 

190 ON A GOTO 200,320,440,580,7:20,860,1000,1070,1140 
200 CLS 


210 LOCATE 10,2:PRINT "DECIMAL A BINARIO" 

220 LOCATE 9,3: FRINT STRINGS$(19,"+") 

220 LOCATE 11,6: INPUT "NUMERO A CONVERTIR=",N 
240 LOCATE as 11: FRINT "DECIMAL" 


250 LOCATE »11:FRINT "RINARIO" 

260 LOCATE A 12: PRINT STRINGE (9, "-") 

270 LOCATE 26,12: PRINT STRINGE (9, "-") 

280 LOCATE 6,14:FRINT ON 

290 LOCATE 28,14: FRINT BIN (N) 

300 PRINT:¿FRINT: INFUT "QUIERES CONVERTIR OTRO NUMEROS 
sE 

310 IF UPFERS (B+)="S" THEN 200 ELSE 60 

320 CLS 
330 LOCATE 7,2:FRINT "DECIMAL A HEXADECIMAL." 
340 LOCATE 6,32: FRINT STRINGE(23,"x") 

330 LOCATE 11,6: INFUT "NUMERO A CONVERTIR=",N 
360 LOCATE 5,11:3FRINT "DECIMAL." 

370 LOCATE 24,11:FPRINT "HEXADECIMAL" 

380 LOCATE 4,12: PRINT STRINGE (9, "-") 

390 LOCATE 23,12:PRINT STRINGS (13,"-") 

400 LOCATE 6,14: FPRINT N 

410 LOCATE 28,14:PRINT HEX:3E (N) 

420 PRINT:ERINT: INFUT "QUIERES CONVERTIR OTRO NUMERO” 
y Eb 

430 1F UPFFER+(B+)="S" THEN 320 ELSE 60 

440 CLS 

430 LOCÁATE 10,2:PRINT "RINARIO A DECIMAL" 

460 LOCATE 9,2: FPRINT STRINGE(19,"+x%") 

470 DEC=0 

480 LOCATE 10,6: INFUT "NUMERO A CONVERTIR=",N* 
490 LOCATE 3,11:3FRINT "REINARIO" 

3500 LOCATE 27,11: PRINT "DECIMAL." 

310 LOCATE 4,12:FRINT STRINGS(9,"-") 

320 LOCATE 26,12:PRINT STRINGS+(9,"-") 

330 GOSUB 1150 

340 LOCATE 6,14: FRINT Ne 

350 LOCATE 26,14: FRINT DEC 

360 PRINT:FRINTS INPUT "QUIERES CONVERTIR OTRO NUMEROS 
y EE 

3970 1 UPFERE (B)="5" THEN 440 ELSE 60 

580 CLS 

53590 LOCATE 7,2:3PRINT "BINARIO A HEXADECIMAL" 
600 LOCATE 6, 3:PRINTOSTRINGF(23,"4") 

610 DEC=0 j 
620 LOCATE 11,6: INFUT "NUMERO A CONVERTIR=", NE 
630 LOCATE 3,11:FRINT "BINARIO". 

640 LOCATE 24,11:3FPRINT "HEXADECIMAL" 

650 LOCATE 4,12:3FRINT STRINGE(9,"-") 

660 LOCATE 23,12:FRINT STRINGE (13,"-") 

670 GOSUB 1150 

680 LOCATE 6,14:FRINT ON 
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690 LOCATE 26,14:FRINT HEXF(DEC) 
700 PRINT:PRINTE INFUT “QUIERES CONVERTIR OTRO NUMEROS (S/N)" 


ES 

e 

710 1F UPPERS(B4)="S" THEN 580 ELSE 60 
720 CLS 


730 LOCATE 7,2: PRINT "HEXADECIMAL A DECIMAL." 

740 LOCATE 6,3: FRINTOSTRINGE(23, "") 

730 DEC=0 

760 LOCATE O "NUMERO A CONVERTIR=",NE 

770 LOCATE 5,113FRINT "HEXADECIMAL. ” 

780 LOCATE 2 11:PRINT "DECIMAL". 

790 LOCATE al 12: PRINT STRINGE (13, "-") 

800 LOCATE 24,12:FRINT OSTRINGE(9,"-%) 

810 GOSUEBE ES 

820 LOCATE 6,14: FRINT ON 

830 LOCATE 26,14: FRINT DEC 

840 FRINTi¡ERINT:E INPUT "QUIERES CONVERTIR OTRO NUMEROS (S/N)" 
¿EF 

850 IF URFERE (RE)="S" THEN 720 ELSE 60 

860 CELS 
870 LOCATE 7,2:1F 
880 LOCATE Sa 
890 DEC=0 
3900 LOCATE 11,6: INFUT "NUMERO A CONVERTIR=".,N3S 

3910 LOCATE 5S,11:FRINT "HEXADECIMAL" 

20 LOCATE 23,11:3PRINT "RINARIO" 

930 LOCATE 4,12:FRINT OSTRINGE(13,"-") 

940 LOCATE 24,12:PRINT STRING+(9,"-") 

950 GOSUB 1230 

960 LOCATE 6,14: PRINT ONE 

970 LOCATE 26,14: FRINT” BINSF(DEC) 

980 PRINT.PRINTE INPUT "QUIERES CONVERTIR OTRO NUMEROS (S7/N)" 
y Es 

990 1F UPFERE(BR)="S" THEN 860 ELSE £0 

1000 MODE 23 INK 0,13: INK 1,0 

1010 LOCATE 33,2:FRINT "TABLA EINARIA" 

1020 LOCATE 1,2:PRINT STRING+(79,"+*") 

1030 FOR X=1 TO 100 

1040 PRINT Xp "="sBEINFOO, 

10530 NEXT X 

1060 ERINT:PRINT: INFUT "MENU()",A:GOTO 40 

1070 MODE 2: INK 0,133 INK 1,0 

1080 LOCATE 22,2: FRINT "TABLA HEXADECIMAL" 

1090 LOCATE 1,23:FPRINT STRING*(79,"+*") 

1100 FOR X=1 TO 100 

1110 PRINT Xp "="HEXEOO , 

1120 NEXT X 

1130 PRINT:PRINT:PRINT:FRINTS INFUT "MENUC(T) ",A6:GOTO 60 
1140 END 

11530 H=LEÉN (NE) 

1160 FOR X=1 TO W 

1170 h=ll-1 

1180 Ar=MID*+(N+,X,1) 

1190 Al=VAL (A) 

1200 DEC=DEC+A1*2"Ww 

1210 NEXT X 


'RINT "HEXADECIMAL A RINARIO" 
"RINTOSTRINGE (23,0%) 


BT 
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1220 RETURN 

LISO W=LEN (ONE) 

1240 FOR Y=1 TO y 

1230 W=W-1 

260 AFSUPFERE (MID (NE,Y,1)) 
1270 1F Af="A" OR Af="E" OR Ag="C" OR Ag="D" OR Ag="E" OR Ax 
="E" THEN 1290 

1280 GOTO 1300 

1290 A1=ASC (A) -355:G0TO0 1310 
1300 Al=VAL (A) 

1310 DEC=DEC+A1*106"w 

13520 NEXT Y 

1330 RETURN 


FACTORIAL 


DE UN NUMERO 


Se llama factorial de un número entero y positivo al producto 
de. este número par todos los enteros inferiore a él mismo y 
mayores que cero. El factorial de cuatro, que se escribe 4!, 
vale, por tanto, 4 x 3x2 xx 1le824, Esta definición se puede 
hacer extensiva a números negativos o racionales. Sin embargo 
estas ampliaciones matématicas no se consideran en nuestro 
Programa, 


En el cálculo combinatorio y en ciertas fórmulas matemáticas 


más complejas (desarrollos en serie de funciones, etc.) esta 
fórmula aparece muy a menudo. Resulta por ello muy útil 


disponer de una subrutina capaz de efectuar estos cálculos de 
forma rápida y eficiente. Aunque la mayor parte de las cal- 
culadoras científicas incorporan esta función de forma están” 
dary ninguna versión de BASIC conocida lo hace. 


La única fuente de error de ún programa de este tipo proviene 
de una incorrecta introducción de datos. 


10 PRINT 

20 PRINT "QUE FACTORIAL DESEA HALLAR N=";x 
30 INPUT N: PRINT ON 

40 IF N>34 THEN 180 

50 I=0 

60 F=1 

70 I=I+1 

80 F=EF*I 

90 IF I<N THEN 70 

100 PRINT "EL FACTORIAL DE "3N3" ES = "¿F 
110 PRINT 

120 PRINT 

130 PRINT "DESEA REALIZAR OTRO CALCULO? S/N" 
140 INPUT Cs$ 


88 


PROGRAMAS MATEMÁTICOS 


150 IF C$="N" OR C$="N" THEN 190 

160 PRINT 

170 GOTO 10 

180 PRINT "EL NUMERO FEDIDO ES DEMASIADO GRANDE " 
190 REM 


NUMEROS ERIMOS 


Hay matemáticos que han gastado una gran parte de su inteli- 
gencia y de su vida intentando hallar, sin éxito conocido 
hasta el momento, un algoritmo que permita decidir de forma 
rápida si un número es primo o no. de hecho. estos números 
siguen una distribución aparentemente aleatoria. 


El programa presentado aquí permite obtener una lista comple- 
ta de todos los números primos hasta el número marcado por el 
usuario. De hecho, si este número es excesivamente alto, el 
cálculo será muy lento, con lo cual entre que la máquina 
obtiene un número primo y el siguiente pueden pasar varios 
minutos e incluso horas. 


10 PRINT 

20 PRINT "INDIQUE HASTA QUE NUMERO DESEA OBTENER LA LISTA DE 
NUMEROS PRIMOS" 

30 INPUT M 

40 PRINT 

50 PRINT "LISTA DE NUMEROS PRIMOS MENORES QUE "5¿M 
60 PRINT 

70 FOR N=2 TO M 

80 FOR I=2 TO N 

90 IF I>SOR (N) THEN 130 

'100 R=N-1I*INT (N/I) 

110 IF R=0 THEN 140 

120 NEXT 1 

130 PRINT Nz" "5; 

140 NEXT N 
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FUNTO DE SILLA DE UNA MATRIZ 


El punto de silla de una matriz es el elemento de la misma 
que cumple dos condiciones: ser mínimo en su fila y máximo en 
su calumma. 


El presente programa sirve para calcular el punto de silla de 
cualquier matriz, que sólo se considera como tal si este es 
único, (es decir, si sólo existe un elemento que reuna las 
condiciones mencionadas para ser punto de silla. 


Muchas matrices no tienen elemento de este tipo. Cuando esto 
ocurra el programa lo indicará. 


Antes de nada el programa reclama al usuario las dimensiones 
de la matriz, tras lo cual empieza a leer los datos corres” 
pondientes a la misma. 


Cuando se obtenga el punto de silla, este se marcará con una 
flecha. 


Es aconsejable no dar más de un decimal a los elementos de la 
matriz, para conseguir una visualización lo más clara posible 
de la misma. 


La localización de un punto de silla en matrices de pequeño 
tamaño es muy sencilla de hacer manualmente, aunque cuando se 


de incurrir en errar. Es en estos casos cuando el ordenador 
resulta particularmente útil. Un buen ejemplo es este 
Programa , 


10 REM 44%**FUNTO DE SILLAARAAN 

20 MODE 1:F1=0:F2=0 

20 INFUT "DIMENSION DE LA MATRIZ». ",C,F 
40 CELS 

30 1F 80 MOD C<(0/2) THEN ZONE ROUND (80/0):GOTO 70 
60 ZONE INT(80/C) 

70 FRINT "INTRODUZCA LA MATRIZ" 

80 DIM M(F,C) 

90 FOR I=1 TO F 

100 FOR J=1 TO C 

110 LOCATE J44, 1243 

120 INFUT" *, M061,J) 

130 NEXT 3 

140 NEXT 1 

150 CLS 

160 REM 

170 FOR E=1i TO E 

180 MENOR=M(Kk, 1) 

190 FOR I=1 TOC 

200 1 M(K, 1) 5=MENOR THEN 230 


210 
zo 
230 
240 
200 
260 
270 
280 
290 
500 
310 


320 
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MENOR=M (ke, 1) 
FOSICION=1 

NEXT 1 
MAYOR=M (1, FOSICION) 
FOR J=L TO F 


1F M(Y,FPOSICION)<=MAYOR THEN 280 

MAYOR=M(J, FOSICION) 

NEXT J 

1F MAYOR=MENOR THEN GOSUE 480:G0TO 320 
NEXT KE 

FRINT "ESTA MATRIZ NO TIENE PUNTO DE SILLA" 


LOCATE 1, I1NT(24/F) 

FOR I=1 TO F 

FOR J=1 TO C 

LOCATE J*4,1*2+3 

IF O I=k AND J=POSICION AND F1=0 AND FÍ=0 THEN 380 
ERINT O M(1,3),:G0T0 390 

PRINTOM(1,D) 3 CHRS (242), 

NEXT J 

PRINT 

NEXT 1 

PRINT "QUIERE CALCULAR OTRO PUNTO DE SILLA?.(S/N) " 
AF=UFFERE CINKEYE) 

IE Af="S" THEN ERASE M:GOTO 20 

IF Aé="N" THEN 470 

GOTO 430 

END 

REM 

FOR H=1 TO C 

TF OM(K,H) MENOR THEN 520 

IF OM(k,H)=MENOR AND Hi POSICION THEN Pi=1 

NEXT H 

FOR H=1 TO E 

IE OM(H,FOSICION) ¿MAYOR THEN 560 

IF OM(H,FPOSICION)=MAYOR AND H<3k THEN P2=1 

NEXT H 

IF FPl=1 OR P2=1 THEN 580 ELSE 590 

PRINT "ESTA MATRIZ NO TIENE PUNTO DE SILLA":GOTO 610 
PRINT "PUNTO DE SILLA= "¿MAYOR¿" POSICION: "; 
PRINT OK", ";FOSICION 

RETURN 


El cálculo de la matriz inversa de uña dada es singularmente 
complicado de hacer manualmente. Sin embargo es indispensable 
su obtención en problemas de cambio de base, por ejemplo. 


El 


programa propuesto aquí realiza este cálculo de forma 


rápida y eficazmente, siendo indispensable su utilización en 
un gran número de problemas algebraicos. 
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PRINT 

INPUT “DIMENSION DE LA MATRIZ A INVERTIR N= ",N 
PRINT 

PRINT "MATRIZ a" 


-DIM A(N,N), B(N,N) 


CLs 
FOR F=1 TO N 
PRINT "FILA "¿E 
FOR C=1 TON 
PRINT "ELEMENTO DE FILA "¿F¿" COLUMNA ";¿C; 
INPUT "=",A(F,C) 

NEXT C 

PRINT 

NEXT F 

PRINT 

PRINT 

FOR F=1 TON 

B(F,F)=1 

NEXT F 

FOR C=1 TON 

FOR F=C TON 

IF A(F,C)<>0 THEN 260 
NEXT F 

PRINT "MATRIZ SINGULAR: NO TIENE INVERSA" 
GOTO 560 

FOR K=1 TO N 

X=A(0,K) 

A(C,K)=A(F,Kk) 

A(F,K)=X 

XB=B(C,K) 

B(F,k)=XB 

NEXT k 

Y=1/A(C,C) 

FOR k=1 TON 
A(C,K)=A(C,K)*Y 
B(C,K)=B(C,Kk)*ev 

NEXT k 

FOR P=1 TO N 

IF P=C THEN 450 
Y=-A(P,C) 

FOR K=1 TON 
A(P,K)=A(P,K)+A(C0,K)*Y 
B(P,K)=B(P,K)+B(C,K)*Y 
NEXT k 

NEXT P 

NEXT C 

PRINT "LA MATRIZ INVERSA DE LA MATRIZ DADA ES :" 
PRINT 

FOR F=1 TON 


FOR C=1 TON 

PRINT USING "$44.448" 3 INTO (B(F,C)*10000+0.5)/10000; 
PRINT ”». ."”s 

NEXT C 

PRINT 

NEXT F 


END 
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CAL.CUL.O DEL DETERMINANTE DE UNA MATRIZ 

El cálculo matricial es una de esas tareas matemáticas donde 
el ordenador interviene con mayor éxito. En una gran parte de 
los problemas matemáticos habituales, como es la resolución 
de un sistema de ecuaciones, hay gue terminar hallando el 
determinante de una serie de parámetros. 


Siguiendo con el ejemplo de la resolución de un sistema de 
ecuaciones, utilizando el popular método de Eramer, Como 
mínimo se requiere obtener el valor de dos determinantes. Si 
el sistema es de pocas incógnitas (menos de cuatro) la reso- 
lución manual es relativamente sencilla. Fero cuando el núme- 
ro de ecuaciones es mayor de cuatro la dificultad del cálculo 
crece alarmantemente. 


En estos casos es recomendable realizar los. cálculos utili. 
zando el ordenador. La subrutina de cálculo de determinantes 
puede ser la agui propuesta. 


100 FRINT 
110 INPUT "Orden del determinante de la matriz A(N,N), N= ", 
N 


130 CLS:DIM A(N,N): DIM Y(N) 
131 IF N>9 THEN 160 

132 GOSUB 500 

133 IF N<=9 THEN 230 

140 FOR F=1 TO N 

150 PRINT 

160 PRINT "FILA "s4F 

170 FOR C=1 TON 

180 INPUT "ELEMENTO DE FILA ";F¿" COLUMNA "¿C;"=",A(F,C) 
200 NEXT C 

210 PRINT 

220 NEXT F 

230 FOR C=1 TOM 

240 FOR F=C TO N 

250 IF A(F,C)<>0 THEN 290 
260 NEXT F 

270 PRINT "EL DETERMINANTE ES = 0"“"LA MATRIZ A(N,N) ES SING 
ULAR" 

280 GOTO 520 

290 FOR K=1 TO N 

300 X=A(C,K) 

310 A(C,K)=A(F,k) 

320 A(F,Kk)=X 

330 NEXT K 

340 Y(C)=A(C,C) 

350 Y=1/A(C0,C) 

360 FOR K=1 TON 

370 LET A(C,K)=Y*A(C,K) 

380 NEXT Kk 


OPERACIONES CON MATRICES 


390 FOR F=1 TO N 

400 1F F=C THEN 450 

410 Y=-A(F,C) 

420 FOR K=1 TO N 

430 AF,¿E)=A(F,¿K)+YACO, A) 

440 NEXT K 

450 NEXT F 

460 NEXT C 

470 D=1 

480 FOR F=1 TON 

490 D=D*Y(F) 

495 NEXT F 

497 PRINT "El determinante de la matriz es igual a"syD:END 
500 FOR Kz=1 TO N 

510 FOR J=1 TON 

320 LOCATE (J-1)*4+1,(K-1)*3+13 INPUT "", A(J,K) 
3530 NEXT J¿NEXT K 

540 RETURN 
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SS 
un punto = 
y 
m p/ ET 
de referencia? e 
= 
E 
e Un contenido avanzado, que aunque tiene como EM 
principal referencia la realidad española, le informa Ú 


sobre lo más significativo de la última actualidad y las 
tendencias de la microinformática (productos, tecnologías y aplicaciones) 
en el mundo, sin tener que leer en otros idiomas. 


e Un contenido de alto nivel y calidad, a través de un tratamiento de los 
temas con elevado nivel técnico, rigor y profundidad. 


e Un contenido útil, que le ayude, con pruebas y comparaciones honestas y especializadas a tomar 
decisiones acertadas en la adquisición de productos y servicios y que además le oriente en cómo 
mejorar el aprovechamiento de la microinformática en sus aplicaciones personales y profesionales. 
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D Adjunto talón a nombre de Ediciones Arcadia, S. A. 
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Dirección 
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Provincia 
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O Domiciliación bancaria (adjunto autorización banco). 
DO Contra reembolso (más 100 ptas. por gastos envío). 


2 años (22 números): 6.600 ptas. 
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N.* de empleados 


O Estudiantes (1 año) con acreditación: 


EDICIONES ARCADIA, S. A. 
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GUIA CHIP36 
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DE LA INFORMATICA 


El mercado de productos y servicios informáticos 

cambia tan velozmente como avanza su 
tecnología. Cada año renueva su oferta, y nacen o 
mueren centenares de equipos y aplicaciones o 
empresas que los comercializan. 
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